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ABSTRACT ? 

This document is t,he fourth of seven units developed 
by, the Math Network Curriculum Project. Each unit, designed to be a 
2-week module, is a teacher's guidtf which includes detailed 
directions along with the courseware and software needed. Teacher 
intervention in the non-computer activities that begin' each unit is 
required, and the consistent Use of small-group instruction makes the 
units usable in a standard classroom if two microcomputers are 
present. The Sampling Unit explores the use of sampling to make 
predictions about total populations. It begins with some concrete * 
sampling activities and a computer sampling activity, the Guess My 
Bag program, designed to give the students some intuition about' the 
relation of facts about a part .of a population to facts about the 
whole. At the end of the unit, students set the evening schedule for 
a television network in a computer program called Prime Time. Their 
schedule will compete, via the phone network, with other classes' 
schedules. <For this concluding activity, the Network Prime Time 
computer program and' the telephone modem are used. The programs were 
developed for use on a Commodore PET Computer with at least 16K of 
RAM using 4.0 BASIC. Printed ^copies of the code for the three 
computer programs are included. (MNS) 
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OVERVI EWv 



SAMPLES 

We live in a world where every , day w^ are bombarded by v statistics. Ttie 
Gallup Poll, Harris and other organizations keep us informed about what we 
think about a variety of issues. Advertisers try to- convince us thst their 
product is better than another because it is preferred "3 to 1" in Chicago-*- • 

Much of the information we receive daily is based on . samples * Boswell 
quotes 'Samuel Johnson as saying "You don't have to eat the whole -ox to know 
.that the meat is tough". That is the essential idea of' sampling — to gain 
information about the whole by looking at only a part of it. - 

There are several reasons why it makes sense to look at part of a 

population. * * - * • 

* 

— It is often impossible to sample the entire population. For example, 
if I wanted to know x what percent of seeds -actually grow into plants, there is 
no way of finding this information for all seeds. 

— It is often too expensive to sample an entire population. 

— Frequently, samples give mote accurate results than counting th?' . 
whole population — for example, a careful v sample of an inventory of spare 
parts will almost certainly give more accurate Results than actually" counting 
the 100,000 separate parts. Humans would surely mak^ counting errors because 
the job* Is so tedious. ' ' 

r— It is faster to sample than to conduct- a census. 

In £he unit, "Samples", students will be working with concepts ot 

probability, equally likely, randomness, sample s*ize, and 
objective/subjective data. , 
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HOW TO USE THIS, GUIDE' 



Once familiar.- with activities^ in this .unit, you "need only refer to the 
Summary of , Activities . -To 'review a particular activity, amore complete 
deacr iption , including teaching suggestions, follows the summary of 
activities. We hope teachers will feel -free to modify our suggestions, and to* 
use «£heir. own ideas. - v ' . • 

, i» • 

We intend that most teachers using this unit will have taken a c<purse 
introducing them to the units. , If you have not taken such a course, you will 
• need to read through each activity, preferably with some friends. You will 
need to discuss the activity's purpose and possible pitfalls as you work. 

The activities in the unit. are. of two kinds: Totfll Class and 
Independent Computer. Work . During Total" Class activities, the students will 
work on the unit either in groups, individually, qr in a whole class , format. 
Although some of , these activities may; require the* whole class period 
(approximately 50 minutes) , others will require less time: 

During the Independent Computer Work, small groups of students will 
work at each computer while the other students will work on classroom 
assignments from outside this unit. These computer activities are starred 
(*) so you will know that during these days your regular program will be 
♦integrated along with the activity from this unit. Generally, groups <?£ two 
or three students will be working together at a computer. These groups will 
rotate during a period of several days so that all -"students will have the 
opportunity to complete the activity. Using two computers, at least four 
groups per class, period should be able to work* at the computer. 

* In describing the time required for , an activity, -we will- provide the 
approximate number of minutes required for Total Class activities and the,' 
approximate number of days required to rotate a class of 30 students thr6ugh 
Independent Computer Work (assuming your classroom has 2 PET c6mputers) . In 
total, this unit requires about 385 minutes, of Tbtal Class Wime and 8 days of * 
Independent Computer time. The activities- can be spread out over a period of - 
time. v ' * 

The activities in this unit are designed\to be * used in the^sequence 

given. 
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SUMMARY OF ACTIVITIES 



Tbtal Time Required: 

Total Wholes Class Time: 150 minutes . 
^Independent Computer Time: 8 days . 

1. VARIATIONS CN SIX 

* 

Students do six different experiments with dice, spinners, cards, 
etc., graph results to develop a feeling for when an event is, 'equally 
likely. - 

Format - Whole class, pairs. 
Time - 100 Minutes , 
Materials 

6 SHEETS OF LARGE GRAPH PAPER 
- 2 VARIATIONS ON SIX WORKSHEETS PER PAIR 

1 VARIATIONS ON SIX DISCUSSION , WORKSHEET PER PAIR 

36 SMALL PAPER 'BAGS 

1 LARGE PAPER BAG < 
3 DICE • 
3 DECKS OF CARDS 
, . 6 DIFFERENT COLORED WOODEN BLOCKS 

3 SPINNERS 

25 3x5 .CARDS CUT IN HALF 

6 BOXES OF CRAYONS - , * 

2. CUBES AND BEANS IN THE BAG 

As a whole class, colored cubes are drawn from a bag, and then 
replaced. Finally, on the basis of their sample, the class predicts 
about the composition of the, bag. Then students repeat the sampling 
exercise working in pairs with beans. 

Fbrmat - Whole class . 

Tijne - 50 minutes 

Materials 

20 SMALL PAPER BAGS - \ 

■ 25 WOODEN CUBES 

(14,8, and 3 of three different colors) 
3 BAGS OF BEANS V 

(3 colors- all beans' about same size *>r lima beans sprayed 3 
colors ° >v ^ 

. % MASKING TAPE 

, 1 BEA^S IN THE BAG WORKSHEET PER PAIR 
* - «■ 1 BEANS IN THE BAG DISCUSSION WORKSHEET PER 4 
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3. BEAN POPULATION 

The clas^ takes samples of bean&to predict the contents of a 1^ 
of beans whose total number pf beans i^bot known, 

V 

* • 1 4 

Fbnnat - Whole cl^ss 
Time - 50 minutes 
Materials 
% ' * 1 POUND OF WHITE BEANS 

3 POUNDS OF BROWN BEANS THE SAME SIZE AS THE WHITE BEWS 

1, LARGE PAPER BAG . 

l^LARGE SHEET OF GRAPH 'PAPER 

*4. GUpSS MY BAG * 

Students work in groups with a computer and use sampling to guess 
which bag the computer has chosen. 

^ Fbnnat - Groups of two or three 

Time - 2" days (15 minutes per group) i 
Materials ' * 

I COMPUTER WITH GUESk MY BAG PROGRAM PER GROUP 

"5. ClftCLE A NUMBER 

Students survey a number of people (a§ homework) ,to. find out 
which of the numbers 1-4 are most frequently circled, ' 

Format - Wholfe Class and Homework " v 

Time - 25 minutes on first day and 25 minutes on second day • \ 

Materials % , 

200 1-4 SLIPS OF PAPER ' 

LARGE SHEET OF GRAPH PAPER 

*6. PRIME TIME \ ' ' 1 . % 

4 \ Students use a computer program and schedule television programs 
for Tuesday night viewing. .. Surveys are taken prior to scheduling^ and 

ratings tell how well they planned. * v 

* * * *■ 

florraat -"Whole class and groups of 2-3 students 
Time - 30 minutes and six days t 
Materials * 
' i .computer with prime 'time program per group 

1 PRIME TIME PROGRAM SCHEDULE WORKSHEET PER GROUP 

1 PRIME TIME NETWORK RATING REPORT PER GROUP 

1 CURRENTLY WATCHING RESEARCH RECORDING SHEET "PER GROUP 

1 PEOPLE'S PREFERENCE RESEARCH RECORDING SHEET PER GROUP 




ERJC 



-5- ( 



7. NETWORK PRIME TIME 



The class schedules a television network to compete with other 
classes 1 television networks using the phone network. 

Format - Whole class 

Time - 100 minutes , , 

, Materials 

COMPUTER WITH NET PRIME PROGRAM AND' TELEPHONE MODEM. 



j 
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V A R I ATI ON S ON SIX 



Format 

Whol6 Class. 1 
•Pairs 



Time >» 
Two class 'periods 
(about 150 minutes) 



Materials Needed 
6 sheets large 
graph paper * 
Worksheet.for 

Variations on Six, 
two per pair 
* Worksheet -for 

Variations o3> Six 
Discussion, * 
1 per pair 
,36 small *p3per* bags 
1 large paper bag 
or box with lid 
3 dice 

3 decks of cards 
6 different colored 

wooden blocks 

(or crayons) 
3*spinners • , 

(see end of 

activity) 
25 3x5 cards, 

cut in half 
• (or 20 cards and 

18' tongue • 

depressors) 
£ boxes^of crayons 



Background 



Students # often belipve that certain numbers or peqple 
are "lucky" ; They feel * tha% . wishing or wanting * 
something to happen can help.make it occur. - ; 

Frequently when probability is introduced in the - 
schools, it is presented only in the abstract. .For 
example , ah introductory lesson might state, "A die 
has six sides. Since each side has an equally likely 
chance to come up when *the die i? rolled, we say that 
the probability of a particular number, being rolled . 
is one in six or 1/6." 

This kind of presentation assumes that telling fche 
students is enough to convince them that each number 
is equally likely. Not until- students actually roll 
a x die many*; many times will they have a^eal 
understanding of .what equally likely means. 

Wi th' these exper i ences* comes an understand ing Chat 
actual outcomes seldom exactly match the predicted or 
expected outcomes — that a "1" will not be rolled 
exactly*, once every six times, or that out of 4P 
rolls, exactly eight of each of the six numbers will 
come up". \ 

This activity assumes the students* have had some 
experience making . simple histograms. If not, make 
sure the students., fully understand the directions ts 
complete the graphs. ^ 



purpose 



- To have the students develop a ' "feeling" 

about equally likely and random selection. 

- To have the students see the similarities 

underlying equally likely results in 
exper iments with different physical 
materials. 



To hsve the students analyze and make 
predictions about the probability of an 
event. 
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Preparation 

Run, off "Variations on Six" . worksheets so that each 
jpair of students has at least two copies. 

«• 

Run off one "Variations on Six" Discussion Worksheet 
for, each pair. • 

s 

Prepare three "Experiment E}ags"'for each of the 
experiments. Write the experiment number on the bag 
and tape a direction card on %he bag. (See end of 
activity) The contents by experiment number are: 
* 

1. one die 

* « X 

Z.. one spinner divided into 6 equal parts 
* labeled A, B, C*, D, E, and F- (See 
directions after this activity to make 
the spinners.) 
s 

3/ all four Aces through ^'s from a deck of 
cards ^ 

4 . * the two re3 8 f s through Kings % from a 
deck of cards 

5. **6 different colored wooden Blocks 

6. (empty at. this point* Random names will 
be drawn.) 

L • • 

Make the composite^ graphs (see end of 'activity foir 
instructions) . Post them in various locations on the 
walls or large tables around the room. Place' a box 
of crayons breach graph. 



Activity 4 
Introduction ' * 

Ask the class if they think certain numbers or people 
are "lucky". For example,, if they roll a die a lot 
of times, which numbers do^they think will come up 
Miiost often? (if they think certain, numbers will come 
up more frequently, than other numbers, find out' which* 
numbers and why thtey think'" this will happen-.) Second 
examples Tt -there' were going to { be' a drawing for a 
free TV set and everyone's name was written on a 
paper, put in a box> mixed up, and then one drawn, 
would everyone have an equally likely chanoe to win',' 
or are there certain people in the class who are more 
likely to win than others? Why? 
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Describe Experiments 

« > 

Tell the class that each experiment 'is, in a bag with 
.a number on it. There are three identical bags for* ■ 
each experiment so that there will be enough to go ' 
around. Directions are written on a paper taped to 
the outside of the bagi They may not have time to do^ 
all experiments, and they do not have to be done in 
order. When fihished with one experiment, they. graph 
.their .results, bring the bag to the front of the 
room/ and get another bag. 

Explain that each experiment is different, but there 
are several things that t are the same: ^ 

1. They are to. do each experiment exactly 
50 times. Each time anything removed or 
chosen must be returned to the. original " 

* / collection, which then must be thoroughly 
remitted by -shaking or shuffling. 
»• *> 

2. They will be working in .pairs. One 
person is to do the experiment and- *the 
other person is to record the results on 
the worksheet.^ Record by using tally 
marks.- Make- a prediction f irSt. 

3. After completing each experiment, the 
- * - grtfup is - to add. their results to the 

* ° cumulative graph. 



f Expl-ain* the directions for . Experiments 1 through 5. 

(They ar& t provided on. the Direction Cards which 
' should be taped to the bags.) 

4 

Prepare Bag No. 6 v . 

Tell the class that in this a<£tivi 
who is the "luckiest! 1 student, 
card to each student. Have 
her/his name on the card 'and put 
lid) or large paper bag which is then thoroughly ' 
mixed. Then draw six cards and write those students' 
'names on the composite graph. put the six cards 
(with two other duplicate sets quickly made) into* the 
No. t 6 bags. 1 (You mig.ht want to use tongue 
depressors-instead of cards since they are 'easier to 
mix.) " * 





Sample Graph for 
Experiment No. r 1 
After Thr^e Groups 
Recorded Results 

(f|rst group results 
shown by j^S] , second 
b y C3 and third 
by mm ) 



Explain- the Graphs - 

Each experiment 'has a graph that is posted abound the 
room. '^After • completing^ each experiment, add your 
results to what is already there. Each sauare on the* 
graph^ stands for two happenings. For example,* if you 
rolled sixteen l f s r you would color in eight squares, 
starting above the last grouR's colored squares in 
the cplumn marked "1". . Use. a different color crayon 
than the last .group so we can keep track of each 
contribution. 

Begin- Experiments 



Assign partners and hav? them sit together. 
Distribute the bags, scat' least two groups are 
working on each experiment. Remind them to go on to 
another experiment after they record their results.. 
Walk around the room*" to see that -the students 
understand what they are to do.. Be sure they mix 
, each collection carefully before' each drawing. 

After ' Experiments^ 

As^ each pair finishes all the experiments, give the^' 
studen'ts a ^discussion worksheet. The pair should 
discuss the. questions while waiting for others to 
finish. « 

Discussion 

* 

When everyone* finishes, "or when you fel they have 
spent enough time/' cpllect the materials and pass out' 
the rest of the discussion worksheets. 

,£o • oyer the questions. Try to help students explain 
* to other; students that all the experiments were 
really tfie same.' It might, help some students if you 
cover ap the labels on all six graphs* This will 
help them see that they can't tell the results of one 
experiment from. the 'Other. 

Do not expect- "all students, to understand the points 
of the lesson: . All the experiments were the 

sam£ except for tha materials used. No number 

or person can be consistently lucky in a random 
experiment. The more times you do flans' kind of 

experiment, the more alike the columns will look. 

Note: It will, not help students for you to tell them 
these conclusions. They need to* come tb understand 
them for themselves by first doing many such 
experiments, then thinking abou\ them, and finally f 
discussing the experiments with*other studentSv, 
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You may ' want to* do more -experiments of this kind 
(perhaps the ones "students invent in response to 
Question ,8) during 'the Individual Computer Time^later 
in the unit. ~ * 
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VARIATIONS ON SIX i/ORKSH EET 



NAME 



EXPERIMENT # 



OUTCOME 



TALLY 



EXPERIMENT i 



.OUTCOME 



TALLY 



NAME 



EXPERIMENT § 



OUTCOME 



TALLY 



EXPERIMENT # - J 

— 

r 

OUTCOME 



TALLY 



VARIATIONS ON SIX 



EXPERIMENT #1 



*DIE' 



Student directions for six experiments 

Teacher directions: Make three copies of 
this page, cut apart and tape to outside 
of appropriate bags. 



Shake die. 
Roll die. 

Record number that is rolled. 
Do 25 times . 

(contents : *1 die) 



EXPERIMENT %#2 "SPINNER" ~ r 
Spin spinner . 

Record letter the arrow points to. 
Do 25 times. 



(contents: , Spinner divided into six equal 
.parts and labeled "A,B,C,D,E,F") 



EXPERIMENT'S^' "Mini Deck" ' <. ; 

Shuffle deck. 

Choose one card without looking. 
Record number on card. 
Return card to deck. 
0 Reshuffle. . y 

Do 25 times* 

(contents: Aces through 6's from a deck 
. of cards) 



EXPERIMENT fl* "Mini. Red Deck" 
- Shuffle deck. 

Choose one card without looking. 
Record number on card. 
Return card to deck. 
Reshuffle. 
Do 25 times. 

(contents: redS's through 
red Kings from a deck of cards) 



EXPERIMENT. #5 "BLOCKS" 
Mix bag. 

Draw out one block without looking. 
Record color of block. - 
Return block to bag. 
Re-mix bag. 
Do 25 times. 

(contents: six different colored blocks) 



EXPERIMENT #6 '"NAMES" 



Mix bag. 

Draw out card without lotfking, 
Record name on card. 
Return card to bag . 
Re-mix . 
Do 25 

times . 
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(contents': 6 cards,' each with 
a different student's name) 
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VARIATION OH. SIX 
DISCUSSION WORKSHEET 



1. How are the six graphs the same? How are they different? m 



2. If the words and labels were removed, wouTd it.be ver-y easy to tell- which 
graph was which? Why or why not? 

* « 

3. Are the heights of the columns about t*he same or, do they vary? sWi>y--or why not? 

4. , V/hy was it important to shake the bag. or shuffle the cards every time? 




5. . If we did each experiment lOOO tStne9 or a million times, could you predict 
ie 

\- 



what the results would be? 



6. Were certain numbers or people "luckier" than others? Would you expect the 
same numbers or people to be' "lucky 11 if we did the experiment again? 



7. Would It be possible to be very "luckW* and roll 

10 Hc'ln o r^w? V 



10 1 1 s I n a row? 

t 100 1 1 s ,in -a row? 

1000" 1 's Ina row? „ 1 
r 

m Would these happenings be likely? 

8,' Think of other experiments you could do besides these six that would give 
very slml lar resul ts. 
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HOW TO M/.KE A SPIKNKB THAT REALLY SPINS. 

1. Cut a circle from tag board*. Poke 
a nice round hole exactly in the 
center, , , 

4 f 

2. Cut a' square piece of tan board that's 
a little larger than the circle. Pcke 

„ a hole through the center of this, too. 
Draw a line from the hole to one corner. 

3. Frdft the scraps left frora catting the 
circle, cut 3 little squares, about a era 
on a sicie each. They'll be used as wash- 
ers. * Poke a hole through each and crimp 
them a bit, too. 

Take a paper clip and bend just the out- 
side up. , 

5» Cut a piece ^f masking tape. that's about 
k cm or 5 cm long. 

6. Assemble the spinner by first poking' the 
■ paper clip through' the square. Tape it 

on the bottom to hold it in place. * Then 
put the three washers on. 

7. Put the spinner face on neict. 

8r Add a piece of tape to cover the point 
of the paper ^lip. 

9. Now it's ready to spin. 
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CUBES AND BEANS' IN 1 THE BAG 



Background 



Ebrmat * * 
Whole Class 
Groups qf Four 



Time 

.1 class period, 
(about 50 minutes) 



terials Needed * 

20 small lunch sacks 

25 wooden cubfes 
(14,8,3, of three 
different colors 

3 bags of beans 

(3 colors-all beans 
about same size) 
or lima beans 
sprayed 3 colors 

1 Beans in the Bag 
Worksheet per pai^ 

1 Beans in the Bag 

. Discussion 
Worksheet 
per group of 4 

Masking Tape * 




In "Variations on Six*, the students began to develop 
a feel for what it means to have an equally likely 
chance of being selected. Ir\ these activities, all 
of the possible outcomes were known in advance. 

In "Cubes and Beans in the Bag", the students will do 
several activities where, after sampling, they will, 
make inferences and predictions about the composition 
of a total population. 

,ln these activities, the size of the sample size will 
vary. We want students to realize that generally, 
the larger the sample ^ the more - accurate the 
prediction. 

<#? 

This activity also includes the possibility that 'some ' 
of the samples may be biased. Because of the 
variations in, the objects being' sampled (beans) and 
the sampling method used (selection by "hand" that 
involves touch) , the results may be influenced so 
that our picture of the total^population is not 
.accurate. 



Purpose 



- To have the students begin to make inferences 

about a population based on random 
samples.- 

- To\have students develop, a/i awareness that in 

general, the larger the sample size, the 
more accurate the prediction. 

- To give students the notion that sane samples 

may be biased. 



Teacher Preparation 

Purchase lunch sacks and three different colors of 
dried beans. The beans should be as much the same 
size as possible. Each studept will need a handful 
of each of the three colors of beans. (Or, spray 
1 ima beans with different colors of spray paint. 
Spread out on newspapers, spray, and let dry. Only 
one side needs to be sprayed.) 

' -16- 
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Before class, fill one sack with 25 wooden cubes: 14 
blue, 8 red, and 3 green. 

Run off* Beans in a Bag Worksheets, at least one per 
pair of students. Run off* Beans in a Bag Discussion 
Worksheet, at least one per group of four. 

Students will need to tape the bottoms of the lunch 
sacks so beans won't fall out. Have a few students 
tapes all the -bags before class or have each pair of 
students tape their bag at the beginning of the 
activity. 

Activity 

- Cubes in the Bag 

Hold up the bag of cubes. Tell the Students that 
there are 25 cubes in the. bag and that the cube^/are 
of three different colors. it is t their ' task to 
figure out how many cubes ther„e are of each color t"jy 
looking at only on& cube at a time. „ - 

Walk ground the room and ask individual # students tb 
draw out a cube without looking* - inside the hag. 
^Record what color it is on the chalkboard and then 
put the cube back into the' bag. Shake^the bag before 
every draw. Record with tally marks .on the boajd. 

After 25 draws, stop and ask the stuSentsFga^.they 1 re 

sure 'they've seen ,every cube. ..Whv not? Ask if they 
can mai<e J a prediction J a5out the iiunber or cuoes of 

each color in the -bag. Record several predictions on 

the board. How sure^ are they of their predictions? 

How «close did the sampling results as recorded, on the 

blackboard match Ihe* actual contents of the bag? 

Would taking more samples help make them surer? 

Take 25 more samples (drawing one cube out and 
returning it) , recording' after every draw. t * 

Have each student write down a prediction on a piece 
of paper. Compare predictions and- ask students to 
explain the strategy they used in making 'their 
predictions* 

Vote on the several predictions.- Ask the students if 
the vote makes the prediction true* - keep the voting 
results on the board. 

Empty the" bag, one block at a time, recording the 
color on the board. 
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* Compare the actpal results with' the various 
predictions. How accurate were the predictions? How 
close did the sampling results (as recorded on the 
blackboard) -match the actual contents ol the bag? 
Would taking more jsatnples have increased the 
accuracy? Did their predictions get more accurate as 
the sample grew? 

With 25 blocks in the bag, how many samples do you 
think it is wise to take before you are pretty sure 
of your prediction? t * 

Organizing Beans in the Bag 

Assign the students to pairs, and h^ve two sets of 
pairs work together. 

Distribute a Beans in tfie Bag Worksheet, a paper 
JLunch sack, and a handful of each of ' the three colors 
of beans to each student* • 

Instructions for Beans in the Bag 

Each pair is ,to put 25 beans in a taped bag without 
the other- pair seeing the color. They may use any 
combination of the . three colors they want, any 
combination of two colors, or all one. color. 
^However, there must' be exactly 25 beans in the 
bag. After the bag is filled, they are to exchange 
bags. Then both pairs are to draw out beans, one at 
a tim e, from £he other pair's bag, recording the 
color in the "taiLy" section of the worksheet, and 
then return the bean to the bag. The bag should be 
reshaken before every draw. The students are to make ' 
a total of 40 draws from the bag. After every 10 
draws, they should total the tall^ marks made so far, 
and they .are to make a prediction on the worksheet 
about the color composition of the bag. When 
completed, they are to empty the bag, record the 
actual count, and see if their prediction got better 
with more samples. 

Warn students not to tell the other pair how good 
their predictions are until they have completed all 
40 draws. 

Wallc* around the room while the students are working, 
clarifying instructions and seeing that students, 
record their predictions on the worksheet after every 
10 draws. 

If some groups finish early, let them repeat the 
activity or have them discuss the Beans in the Bag 
Discussion Worksheet. 



Large Group Discussion 

Compare ^the result^ of the various groups. 

-Did their predictions improve as their samples 
got larger? 

-How frequently were predictions exactly right? 

^ -Did all three kinds of beans feel the same? 
Were there any "biases" that caused them to 
^choose one kind of bean more than another 
(size, shape, texture)? If so, did this bias 
influence the result so that all beans did not 
have # an equally , 1 ikely chance of -being 
selected? Did it affect their predictions? 

-Suppose we, had lCfO beans in the bags instead 
of .25'; how many would we need to sample to have 
a fairly accurate prediction? * Suppose we had 
' £000 beans in the bag? 

-Sappose we had so many beans in . the bag that 
we couldji' t or didnSt; want to, count them. 
Could we make predictions about the composition 
of the bag? Tell the class that* this is the 
problem they are going to work on tomorrow. 



J • 

• t 

Beans in the Bag Worksheet i *. 



Bag Predictors: . , »Bag Makers: 



, Draw Record 



tally Total No. Tally Total No. Tally Total No. Tally Total No. 

tr 1st Drawn " for 2nd Drawn for 3rd Drawn for 4th , Drawn 
Draws after 10 Ten Draws after 20 Ten Draws after 30 Ten Draws af ter-'AQ 
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Prediction 



c 



Actual Count 



Colbr 



After After After After 

10 Draws 20 Draws 30 Draws 40 Draws 



«No. in 



Color 



Bag 



\ 



Beans in the Bag 
Discussion Worksheet 



Was if: easier to predict after 40 draws than after 10? 
Why or yhy not? 




Did all three kinds of beans feel the same?- 
Would a different feel affect results^ 



Suppose we had 100 beans in the bag instead o£ 25.: 

How many would we need to sample to have .a fairly accurate prediction? 
What if there were 1000 beans? 
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BEAN POPULATION 
Background . 



Format 
"Whole Class 



Time " . 

1 class period 
(about 50 minutes) 



In "Cubes and Bearis in the* Bag", the students made 
inferences about .the color composition of a bag of 
cubes £nd- a bag of beans when the total number of 
cubes o'r beans was * known in advance. In the .real 
world, we often do not know the total number in a 
population we want to sample. For exampl^, we don't 
usually know the total number £>f people who will vote 
in the next election. But we%re still - interested §{ 
predicting what percentage of* the unknown number of 
voters will vote for a certain candidate. 



Materials Needed 
1 pound of white 

beans 
3 pounds of- brown 
beans 

(white and brown 
beans ar*e same 
size?) 

"1 large paper sack 
1 lajrg^ sheet graph 
paper 



Thus, studehts need practice in predicting from a 
sample about a population . whose' actual size is 
unknown . "Bean Population", -(adapted from Sampling 
Button Populations , 1972, National Wildlife 
Federation, 1412 16th Street, NW, Washipgton,' D.C. 
20036) provides this sort of practice. 



Purpose 



- To have students make inferences based on 
. random samples about a population whose 
size is unknown. - „ 
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-•To have. students develop an awareness, that in 
k general, the larger the sample - size, - the 
more accurate the prediction. 



* To give students the notion that sane samples 
may be biased. # 



Preparation 

purchase one bag of white beans and three bags of 
brown beans (all bags *and beans of the same 
respective si^e) . Two of the colors used in "Eeans 
in the Bag" may be used to make up part of .the Bean 
Population. Mix the bags of beans together in 
another large bag. One quarter of the bag will be 
white beans, and three, quarters will be brown beans r 



Hang a large sheet of graph* paper in front of the 
room with the long side vertical. Make a histogram 
titled "Bean Population" with long axis labeled 
"Number of feeans", and two spaces on the $hort axis 
labeled "White" and "Brown"* 
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Activity . ' 

Introduction 

9 

Tell the class that today they wi^il* see if they can 
make predictions when they don't know how many are in 
the population. Yesterday they knew there were 25 
cubes in each bag. 

Show the bag of beans and tell them, that the bag 
contains' white beans* and brown beans. After 
sampling, they are to see if they can predict the 
color composit i-pn (not the size) of the bean 
population. 

Have one student take a handful of beans from the bag 
and record the number df white ancl brown beans in t£e 
handful. 

i 

Class prediction 

List the following on the chalkboard: 

3 white\&i^3 1 brown, 

2 white ^and 2 brown, » * 

1 white and 3 brown, . - 

4 white, 
4 brown. 

Ask the s class to predict which of • the board 
combinations would be most likely if they took only 
four beans from the bag with their eyes closed. Ask 
them why they made the predictions. 

Individual Work 

/ 

Mix the bag well. Have each child choose exactly 
four beans from the bag. « 

Have each child report ind ividually on the color 
combination in their, four beans. Tally results next 
to the color combination statements on the board and 
on the Bean Population histogram. 

-Discussion , 

Discuss results. Are they what was expected? Divide 
the total bag of beans up among the groups and have 
the students actually count the number of white and 
brown beans. 

Si 

Have the students calculate exactly how many browns 
there are for each white bean by dividing the number 
of brown beans by the number of whites. Their result 
should be approximately three browns for each- White. 



Discuss this in- terms of .their findings when each 
student drew ffcr beans at random. , 

Were there any 'biases when selectTfKj beans so that 
^ one be§n was* chosen rfiore than expected from the final 
count? How -could we have controlled this? (Have 
beans exactly same size, 'not use haijds that "feel" 
^ - when choosing, etc.) 
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♦GUESS MY BAG 



Format. 

Groups of 2-3 



Time 

about 3 days of 
rotating groups (about 
15 minutes per group) 



Materials Needed 
2 PET computers 
"Guess My Bag" 
program 



Background * 

Mow students have had some concrete experience 
inferring from samples. They need more practice, but 
counting beans or cube^ becomes tedious* Therefore, 
we will use the computer in this activity to provide 
•practice at inferring from samples without the 
• tedium. The computer will make up the 'bags and do 
the counting while the students will spend their time 
"making inferences . 

We also want students , to. become comfortable with 
histograms. /In this activity -the computer will show 
three possible bag^ by displaying three histograms*. 
The students must guess which bag the computer has 
chosen by .seeing which of the three histograms- best 
matches the samples they have taken. A student can 
ask the computer to take as many and as large samples 
as they like, before they guess .which histogram 
matches the, computer's bag. 

' »- 

To encourage the students to make predictions on 
smaller samples , the computer gives them a score. 
The more objects they sample, the lower their score 
, will be. There i are three levels of difficulty 
•^tudenfe can choose from: 1, 2, 3. 1 is the easiest 
level, 2 is in the middle, and 3" is the hardest 
level. . Students will have to take larger samples at 
higher levels of difficulty, and their - score reflects 
this. The score is 

difficulty * 50- (number taken) 

So if a student guesses the correct histogram at 
difficulty level 2 after sampling 75, : their score is 

2*50-75 or 25. 

If their guess is wrong, their score is always zero. 



1 

Purpose 



- To have students practice making inferences 

from samples. ^ 

i 

- To have students become tore comfortable wit* 1 

histograms representing populations. 
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Teacher Preparation 

Preview and- play "Guess My Bag" prioi; to introducing 
it in class. Play all three levels of difficulty. 

Prior i to or at_ r ±he- beginning of class, load "Guess My 
Bag" into the ^wo PET "computers. 

Assign groups of 2-3 Students tb rotate through 
^ computers. * 

You need to plan other work for the students to do 
while the groups are rotating through the program. 



/ 



Activity 

"Tell the students Jthat^ they will be using the PET 
computers to play "Guess My Bag". \ 

In this program/ they have *a bag with four different 
colors of beans in it. The Computer will . show them 
three different histograms, one of which matches the 
bag they have. The histograms show the percent of 
total beans of the four colors in the bag, .They can 
take as large or as many samples as they -wish. When 
they think they know which histogram matches their 
bag,- they can guess.. There are three levels of 
difficulty, with "1" being^ the easiest, and "3* being 
the hardest. 



After guessing each bag, they will get a score that 
is based on the difficulty level and the number 
sampled. 

Write "difficulty * 50< - (number taken)" on board. 
>Go through a % few • examples to show them hbw their 
score is -calculated. Point out that the larger their 
sample is, the lower the score,, but if they guess 
wrong, their score .is zero, and that the higher the 
* difficulty levefl, the higher the possible score. 

Rotate the groups through the program. There is no 
need tt> keep records of this activity. Each group 
shbuld spend about 15 minutes using the program. - 



2d 
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Format 

Whole Class 



Time 

25 minutes, 

first day 
25 minutes 
follow-up 
next day 



CIRCLE A NUMBER 
Background . 



Irt this activity, the students -see if any of .the 
numbers from one to four are m<?re frequently selected 
than the others. It is similar to "Variations on 
— Six" in that all possible outcomes axe known in 
, advance, - This is the first sampling activity where 
% the students survey people. It is first, done in 
class, %pd then a larger sample is taken. The 
difference between subjective and objective data is 
discussed. 



Purpose 



To have the t students do a "survey of people's 
Materials,Ne^ed £ opinions. * 

200 1-4 slip? of 

paper - To have *the students understand the 

(see 1 end of ' • difference between objective and 

activity) - subjective data, 

large sheet of 

graph paper _ To u ave the ^students make inferences about a 

* characteristic in a population cased on a 
sample. 



\ 



Preparation 

Run off and cut apart -lr4 slips (see end .of 
activity). Prepare a graph (with the long, side 
vertical). 



Activity 

in- Class Survey " ' 

Pass out a 1-4 slip of paper to 'each student. 

Ask the students .to ; circle one of the numbers on the 
paper, without' discussing it .with anyone, and turn 
the paper face down. 

Ask each student to write a prediction on the back jof 
the slip: 



1) Do you think any number will be circled lots more 
than any other number? If so, what number? 



2) Why do* you think that? 



9nall Group 'Discussion 

In small groups -of 4-5, have the students discuss 
their predictions and ■ come up with a group 
prediction. Have them appoint a spokesperson for the 
group. 

After approximately five minutes, have the 
spokesperson for each group present their predictions* 

Discuss Group Work 

How did the groups arrive at their prediction^ 

-Did all members agree? 

-Did you go by majority rule'? 

-What other procedures did you use? 

Graph Results 

Graph the individuals 1 circled number on the graph 
(It will not,b§ much data at this point,, but more 
will be addeci to it tomorrow) , . Outline the top of 
the graph with black felt pen. 

Ask the class: 

-Did the results match the predictions?. 

-Tell the class tha't the idea for this activity came 
from the Sunday paper ( San Francisco Chronicle , "The 
Grab Bag", by L.M. -Boyd, November 30, 1980) , and the 
•article said that four out of five people would 
circle "3", • • 

-Is that what happened in this class? Review the 
relation of "4 out of. 5*\to percents (80%) • Have the 
students determine what percent of the class selected- 
"3 n . ^ 

Homework ^ 
1 J 

Give .the homework assignment: Bach student " is to 
take % five slips of paper and ask five people to 
circle the number. 

m 

Second Day Graphing 



Tally the responses to the Hoitiework Assignment. 



Add' the data to the large graph. 



Discussion 

-Did thei r results matcfc the "Grab Bag* 1 article 1 s 
assertion?\ ( M 3 n probably came up more often but not 
80% . This d iscrepancy reflects the f &ce that 
newspapers may exaggerate.) 

-Why didn't the graph come out like the graphs in 
"Variations on Six"? 

-Did all four numbers have an equally likely chance 
to come up? (No, because people chose numbers out of 
their minds rather than randomly.) 

Objective and Subjective Datb 

4 

Tell the class that there are many agencies that want 
to find out things about people, from how their 
height and weight compare (Have they seen such 
tables?) to what kind of cereals they like. There 
are generally -two kinds of data we can collect about 
people- one kind of 'data, objective, like the 
height-weight, is a *£ act and doesn' t change very 
frequently. The other kind, subjective, like the 
favorite cereals, is a person's opinion. Ask if this 
activity used objective or subjective data 
(subjective) . 

Have the students list several examples of subjective 
and objective information they may wish £o know about 
people in general . - * • 

Ask the class which kind of information is more 
believable, objective or subjective? Can 1 you find 
out everything you want to know by objective 
questions? (no) 
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Format 

Intro- Whole Class 
Independent Computer 
Time- 
Groups of 2-3 



Time 

Intro- 15 minutes 
6 Days (Enough for • 

two 20-minute 

rotations through 

program for 

each group) 
Discussion after 

computer session- 

20 minutes 

Materials Needed 
PET computers x 
"Prime Time" program 
1 Program Schedule 

Worksheet per group 
1 Network Rating 

Report per group 
1 Currently Watching 
Research Recording 
Sheet per group 
1 People's Preference 
Research Recording 
Sheet per group 



* PRI ME TI.ME 
Background 

"Prime Time" is designed to give the students a 
simulation in an area where sampling is used in the 
real world . Television networks are continuously 
using data gained from sampling to plan new schedules 
of programs and evaluate existing programs. In fact, 
the ratings, which are based on^ a small sample of 
about 1200 households, directly relate to the amount 
of advertising dollars* a network can attract. 

In this program, the user becomes the program 
director for a new television network (two other 
networks are already in existence) . it is her job to 
plan a Tuesday night prime time (7-11 p.m.) 
schedule . The user will conduct research (that 
includes both objective and subjective data) prior to 
planning the schedule. After scheduling, ratings 
will be given for each week of the season. The user 
may change any prog ram (s) in mid-season if ratings 
are low, but may not do .any new research at that time. 

The m program schedules for the other two networks are 
determined by a 3-digit code number. The code number 
insures that the computer can generate the same 
schedule on the other two networks. This allows the 
user time to plan between .phases of the program, the 
other networks programs are not determined completely 
randomly (it is assumed that they have used ratings 
in the past to plan a schedule that will do fairly 
well) . Certain kinds of programs are* more popular 
than others at a given hour. There are also optimal 
lengths for each' kind of program. 

The research department in the program provides three 
kinds of information. Objective data is presented by 
viewing the other networks 1 schedules, and relatively 
objective data is obtained by conducting a telephone 
survey to see what households are actually watching. 
Results are reported in number -of households watching 
each program. T (Some" hbuseholds"are~hbtT watefung~ TV," 
so the total watching will always be smaller than the 
sample size .) Subjective data can* be obtained 
through supermarket surveys where people are asked 
what kind of shows are their favorite and what kind 
of programs they woul.d ]*ke to see more of. Results 
of this survey will v:*' somewhat biased since what 
people say x and what p^>ple do don't always match. 
Generally, 'for both objective and subjective 

surveys, the larger thie sample size, the more sure 
the user can be that tl)e results are similar -to that 
of the entire population. 



Ratings for the ten- week session are similar to the 
telephone survey in that * information is presented *-on 
.what people are actually watching. (It is assumed 
that the rating company has carefully:, designed their 
sampling method so the results tend to be fairly 
reliable.) ^Results for the ratings are given in 
percent of households watching. (Again/ there will 
be households that are, not watching television/ so 
numbers will not add up to • 100 percent*) You might 
want to use the Individual, Computer* Time to have 
students who are not using the* computers conduct 
surveys around the school. They -can graph their, 
results. Possible -survey subjects are eye color/ 
kinds of shoes worn/ favorite restaurant/ kinds of 
.schooi lunches, etc. 



Purpose 

- To have the students involved in a simulation 
of a "real life" activity in which 
sampling techniques are used. 



- To .have students make decisions based on 

information from a sample. 

- To have students analyze how information from 

objective and subjective surveys 
contributed to their decisipns. 

- ■ To have students realize that a sampling 

activity (ratings) will finally evaluate 
their decisions. 



Preparation ' ■ ' * . 

Use the program "prime Time" several times prior to 
introducing it in class.- -Vary how 4 you conduct the 
surveys and schedule the programs so* you. can see some 
of the possibilities. 1 

Prior to classroom use (or at the beginning of class?) 
load the program into the two PET computers. 




Activity • < 

Whole Class introduction ; 

Explain the situation of the "Prim e Tim e n program : ' 
They are the program planning director for a new TV 
network. They will conduct research prior to 
planning a schedule 'for Tuesday' night's prime time 
(7-11 p.m.) programs, and then the programs will run 
for a ten-week season. Every.' week their programs and* 
the programs from the other two competing networks 
will receive "ratings". These ratings >tell what 
percentages of households are'' tuned in to each 
program. 

After five weeks of the season, if their ratings are' 
low, they may change any program. 

Tell the class they will be using the program in two 
phases, (1) a^ research phase where they will gather 
information to help them, plan their programs and (2) 
a scheduling phase- where they will enter the programs 
they have planned, and run them for the ten-week 
season. 

Tell the students that in this first session with the 
program , they are to go only through the 'research 
section. They are to use the various worksheets to 
help them^keep track of any information that they 
think will be helpfuL 

Tell th? students that early in the program* they are 
asked_ for a three-digit code fiumber* It is important 
that -they write this^ number down on the Program 
Schedule Worksheet so that they can get back the same 
schedule for the other two networks when they use the 
program later; 

Students 1 have a budget qf $1000 for research. , There 
is no point in saving this money. They can obtain 

a) Other Network's Schedules for free; * 

b) Data on what people are' watching at $2 per 
household; , / 

c) .Data of people's TV preferences at $3 per 
person interviewed. 

Why would they want information from both b and c? 
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First Computer Session 



Students, in, groups, use Prime Time to do research. 
They will need the Program Schedule Worksheet and the 
two research recording sheets. 

Schedule planning lime 

After a group has finished the first session; they 
will need 20-30 'minutes off the computer $o work as a 
small group and plan their* program schedule. 'You may 
wamt'to have the whole class do this at the same time 
(in' the small groups), or you may, have the small 
group plan their schedule immediately after their 
computer time. * 

Second Computer Session 

Students use "prime Time" to enter th^ir schedules 
and receive their ratings. . They will need 501 their 
old worksheets as well' as the Network Rating 
Worksheet. , 

** 

When using the program, where it ^sks whether they 
wish to (A) research or (B) schedule, they should 
type ,"B?\ ' 

Discussion 

When all groups are finished with the program, have ' 
them discuss and compare results — were there some 
kind of programs that seamed to do better in certain 
time slots? , ' - 

Did the length of the programs matter? > 

w 

Ho v w did tHe survey you did in the research department 
help you plan? Were some surveys more helpful than 
others? What sample sizes gave the needed 
information at the lowest cost? 

What did the ratings show? (Explain that the ratings 
were done by a company. The rating company » computes 
the ratings . by ' taking samples. They carefully design 
their sampling method so they know results are fairly 
reliable.) ' . 

Optional Homework Activity 

.For homework, each * student phones 7 households 
between 7 and 7:30 to survey which category of TV (if 
any) the household is watching. The results are 
graphed the next day. ' 

37 . . 
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Do their results match the prime Time research 
results? (Note' that the categories of shows will 
differ from those given by most seed numbers in - Prime 
Time). 

What are some problems they found in ^taking surveys? 
(What if no one is home? how can you get a "random 
sample"? Are friends "random"? Do some households 
watch more than one show at" the same time?) ■ 



\ 
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PRIME TIME 
PROGRAM SCHEDULE WORKSHEET 



Nam* 



Seed No. 



Enter the program category number under ATC .and'ETS. Use arrows to show the 
length of each program. To plan program schedule for PTN, enter category number 
and program name, (names should be limited to 2 lines pf 10 spaces.) 



ATC 



ETS 



MET WORK 



PTN 



7:00 

7:30 

8:00 

8:30 

9:00 

9:30 

10:00 

10:3P 



CATEGORIES 

1. Game Show 

2. Situation Comedy 

3. Action/Adventyre/Western Series 

4. Dramatic Series , 

5. Movie 

6. News .» 

7. Documentary 

8. Sports Event 
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PRIME TIME 
NETWORK RATING REPORT 



NAME 



SEED NO. 



SUMMARY : WEEKS 1-5 



Ne twor-k : 



7:00 



7:30 



8:00 



8:30 



9:00 



9:30 



10:00 



10:30 



Cat. Rating 



Cat. Rating 



Cat. Rating 



SUMMARY: WEEKS 6-10 



Cat. Rating 



Cat. Rating Cat. Rating 



AVERAGE 
RATING 



OVERALL RATINGS 



NETWORK 



RATING 
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Currently Watching Research 
Recording Sheet ■ 



7:00 
7:30 
8 MO 
8:J0 
9:00 
9:30 

10:00. 

10:30 



Cat 



, Sample Size = 
ATC 

#0N 



ETS 



Ca't 



#0N 



Sample Size 









ETS , 






Cat 




ion 


• £a_t 




#0N 


7:00 








•- '> 






7:30 














8:00 














,8:30- 








• 






9:00 














9:30 






C " 








10:00 


\ 












10:30 


* 













7:00 
7:30 
,8:00 
8":?0 
9\00 
9:30 
10:00 
f0:30 



ATC 



Cat 



Sample Size ■ 

t #0N , 



ETS 



Cat 



#0N 



People's Preferences Research 
Recording Sheet 



Sample Si ze 



Category 

1. Game 1 

2. Situation Comedy 

3. Action 
M. Drama 

5. Movie 

6 . News 

J. Documentary 

8. Sports 



— 7 

Qategory 

1 . Game 

2. Situation Comedy 

3. Action • 

4. Drama 

5. Movie 
6; News 

7. Documentary 

8. 'Sports 



Favori te 



Want More 



Sample Si ze = 



Favori te 



\ 

Want More 



Sample Size** 



Category 

1 . Game 

2. Situation Comedy 

3. 'Action 
k. Drama 

5. Movie 

6. ' News v 

7* Documentary 
8. Sports 
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NETWORK PRIME TIME 



Fbnn 



W?Sle Class and/or 
groups of 2-3 



Time ^ . , 

2 Class periods 

(about 100 minute^ 



Background 

* 4 

This activity is similar r to "Prime Time" except 'that 
the class beTcomes the planning director, and the 
competition is Qne or two other classes on the 
telephone network, • In this activity, the students 
won't know in advance what programs the other 
networks will be showing* planning a schedule will 
be based on what they learned playing "Prime Time", 

When the shows are run during the "season", ratings 
will be determined in the same way they were on 
"Prime Time". 



Materials Needed 

"Network prime Time" 

program 
PET computer with 

telephone modem 



Purpose 



- To have , $jtuder\ts extend their experiences 

from "Prime Tune" to the Network* ' ^ 

- To provide a large group decision- making 

experience, ^r^\ 



Preparation 

Contact other classes using the Network Bulletin 
Board to find one* or two "competitors". 



Activity . 
Introduction 



Tell the class that now they have gained experience 
as program planning directors, they get to use their 
know-Row in a slightly different experience. 

Ask the class if in real lif e, . a network knows ^ in 
"^advance of. the start of a.. season 0 what programs the 
other networks will be showing (no) # 

In Network Prime Time, the whole class will work 
together to plan a schedule for a ten-week season* 
The competing networks ,wQl be actually * other classes 
in the Math Network who - have also done "Prim^'Iime", 
No one wDl know in advance what programs the other 



networks are. scheduling. Ratings will be given each 
week during the season. 

Decision M along ■ 

This is an excellent opportunity for the class to 
discuss how to decide on a fair and competitive 
schedule. They could work in small groups first, 
perhaps using current TV Guides and their- Prime Time 
research, to gfet schedule ideas. These ideas co uld 
then be argued about or voted on. 1 

They could work as a whole class to collect what they, 
learned ih "Prime Time" • that would help them now. 
Elicit such things as what kinds of programs seem to 
do better at which time slots, and what are good 
lengths for each kind of program. Point out to the 
class that their competitors are also going to be 
planning, so they need to consider what they might do. - 

Finally, they <can select a program schedule by 
voting, compromise (one program from one schedule, 
another program from another schedule, etc.) , or 
consensus. 

N 

Entering Schedule 

Once the class has decided on^a schedule, they can 
enter it onto the Network using . the Netprime 
Program. Refer to the Appendix/ "Netprime User 
Manual^ for detailed instructions. 



APPENDIX 



NETPKLME USER MANUAL 
Math Network Curriculum project 




This manual assumes that you have familiarity with the Prime Time program! 



NETPRIME runs on a 16K Pet with a DrCat modem/ Its purpose is- to allow Prime 
Time schedules which have" been stored on the MNCP network to compete against 
each other. The program allows you to load ;into its memory up to 7 different* 
schedules- and get their respective ratings. 



USING THE PROGRAM 

1. LOAD Netprime into the Pet in the 
see the same T*V. screen come up* 
to go on. 



Srmal way.. Run the program. You will' 
you saw in prime time. Press return 



2. You now see the MAIN MENU or/ the screen. There are a lot of cJacices here 
and deciding what to do first can be confusing at first. -Let us assume that 
you have in front of you a piece of 'paper which has on it a Tuesday night 
Prime Time schedule which yotr wish to enter into the machine, store on the 
network, and compare ratings with other sijch - schedules. ^ 

The first thing to do is to choose 'C 1 which will allow you to transfer your 
schedule from the paper to the Pet using the keyboard. 

3. Now you are asked for the name of your T.V. network. This will be the 
name that appears to other people when they decide which networks to compete 
against (so choose something clever). Hif<retum> at the end of the the 
name. (Don't put/extra spaces at the end of a network name since spaces 
can't be seen on the screen.) 

4. Now you are asked for your group name. This name* is just used to protect 
your schedule from being deleted by others. - It will not be seen by others; 
but you need to remember it in case you ever want to change or delete your 
schedule. (Hit <return> as usual.) 

5. 'You should see on the screen the same 'form 1 for entering , a ^schedule that 
you saw in Prime Time except that there are no computer schedules. Enter 
your present schedule just as you are used to. Hold down the <shift> key and 
type & when you are done. (Yo'u can 'abort? this proce^ at any time by 
holding down the <shift> key and typing §,) _ 

6. You will get back to the * MAIN MENU. „ Now is the time to STORE your 
sqhedule* on the Network.** This is choice 'D. f You will first be asked if you 
are connected to the network. Presumably, you haverft yet dialed up. So 



answer 'N' (for No), followed by.<retum>, and then dial the number printed 
on the screen. (Directions for hooking up the modem are to be found in the 
•Dandelion User Manual.') f % 

7. ' Your Pet will then proceed to store your schedule on the network using" 
the name and group that you typed in previously. The MAIN MENU will reappear 
when it is done. 

8. . Next, you "would probably like to havaj^our schedule compete against other 
schedules. But what are the names of other groups schedules? Look on the 
MAIN MENU. Choice 'A 1 there allows you to see the names^ of the other, 
schedules that are stored on the network. Choose it. You are again asked if 
you are connected to the network. If you haven't hung up, then you still 
are, so answer „'Y.' If- you have' hung up (to. save your phone bill, for 
example) then answer 'N' and redial. 

9. \ The statement 'beginning with: 1 -appears on the screen. The idea is that 
there are lots of schedules out there and in some circumstances, you will not 
want to see all their names. Sometimes y&u will know that the name you want 
to see begins with a certain letter, m that case, just type in the letter 
or letters • you know about.' For example, if you know that the schedule you 
want to see begins with 'ABC/ but are not sure what comes next, just type in 
ABC (and hit <return>). * 

If you want to see ALL the names, dorft type any letters. JUst hit <return>. 

The list of names will now appear on the screen. Write them down on paper so 
you won't have to list them again. 

10. When you press retjarn, you will end up back at the main menu again. You 
are ready to LOAD a schedule; or scnedules from the network to compete with 
yours. Choose 'B'. (As usual, you will be asked if you are connected to the 
network. Answer Y or N appropriately.) Then type in the name of the 
schedule you wish to have compete .with yours and hit <retum>. If it can't 
find that schedule, it will give you another chance. If it does find that 
schedule, you will see it come into your Pet, line by line, showing you the 
category and program name for each, time sLot. 

11. Probably you will e want to compete your "schedule against more than , one 
other schedule. So, when you get back to the MAIN MENU, choose 'B' again and 
load another schedule. Each time yo.u return to the MAIN MENU, .you will see 
the names of the networks you currently have loaded in your Pet. j 

12. Finally, vou are ready to get ratings for .your schedule! "* tfiis is choice 
•G r on the MAB1 MENU. After chogsing G, there will be a pause while the pet 
computes the ratings. ■ Eventually, the ratings for each network will [appear 
on the screen, waiting for you to press <return> at the end -of each. I 

13. Other things k you can do from the MAIN MENU include 'E*, deleting a 
schedule from your workspace. This essentially means to 'unload' a 
schedule. For example, if one of your competitors is too good, you might see 
how you do without competing against it. 



14. You can also, using choice 'F 1 , delete a schedule* from the network.,^ 
But, of course, you will have to know, the name of the grotfp that created that 
schedule. So, you can't get rid of your competition ^ist by deleting 'them! " 

> 

15* . Lastly, you can QUIT, using choice , H. 1 * This is the right thing to do, 
especially if you want to SAVE the -program to make a backup. 

Note: - When you get a particularly good schedule, you might want to 'publish 1 
that fact by using the message system program, DANDELION, to send a message 
to . 



students!, bulletins 

so that others will know about good competition for their next schedules. 
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A P P &-N D I X 



NETPRIME USER MANUAL 
Math Network Curriculum Project 

• \ 

OVERVIEW 

This manual assumes that yotf have f^niliarity withthe Prime Time program! 

NETPRIME runs on a 15K Pet with a D-Cat mpdem. Its purpose is to -allow Prime 
Time schedules which have been stored on the MNCP network to compete against 
each other. 'The program allows you to load into its memory up to 7 different 
schedules and get their respective * ratings. 

USING THE PROGRAM N 4 

1. LOAD Netprime into the Pet in the normal way. Run the program. You wil^T . 
see the same T.V. screen come up that you saw. in Prime Time. Press return 
to go on. 

2. You now see the MAIN MENU on the screen. There are a lot of choices here 
and deciding what to 'do first can be confusing at first. Let us assume that 
you. have in front of you a piece of paper which' has on it a Tuesday night . 
Prime Time schedule which you wish to enter into the machine, store on the 
network, ,and compare ratings* with other such schedules. 

The first thing to do is "to qhoose 'C f which will allow- you to transfer your 
schedule from the paper to the Pet using the keybbard. 

3. ' Now you are asked for the name of your T.V. network. This will be the 
name that appears to other people y/hen they decide which networks to compe£e~"\ 
against (so choose something clever). Hit <return> at the end o£ the the 
name. (Don't put extra spaces at the end of a network name since 'spaces 
can't be seen on the screen.) 

4. Now you are asked for your grotip name. This name is' just used to protect 
your schedule from being deleted by others.' It will not be seen by others; 
but you need to remember it in case you ever want to change or delete your 
schedule* (Hit <return> as usual.) 

5. You should stee on the screen the same 'form 1 for entering a schedule that 
you saw in Prime Time except that there are no computer schedules. Enter_ 
your present schedule just as you are used to. Hold- down the <shift> key and 
type & when you are done. (You can 'abort 1 this process at any time by 
holding down the <shift> key and typing -£.) ? . 

6. You will \get back to the MAIN MeHu./ Now is the 'time to STORE your 
schedule on the Network. This is choice f D. f You will first be^asked if you ' * 
are connected to the" network. Presumably, you haven't yet dialed up. So 



answer *'N' (for No), followed by <return>, and then dial the number printed 
on the screen. (Directions for hooking up the modem are to be found in the 
'Dandelion User Manual. 1 ) 

I. Your Pet will then proceed to store your schedule on the network using 
the name and group that you typed in previously. The MAIN , MENU will reappear 
when it is done. , . 

8. Next, you would probably likfe to have your schedule compete against other 
schedules. But what are the names of other groups! schedules? Look on the 
MAIN MENU. , Choice 'A 1 there allows you to see the names of. the- other 
schedules that are stored on the network. Choose it. You are again asked if 
you are connected to the network. If you haven't hung up,* then you still 
are, so answer 'Y. 1 If you have hung up (to save your- phone bill, for 
example) then answer 'N' and redial. 

9. The statement 'beginning with«:' c appears on the screen. The. idea is that 
there are lots of schedules out there and in some circumstances, you will not 
want to see all their names. Sometimes you will know that the name you want 
to see begins with a certain letter*. In that case, just type in the letter 
or letters you- know about. For example, if you know that the" schedule 'you 
want to see begins with 'ABC,' but are not $ure what comes next, just type in 
ABC (and hit <return>) . 

If you want to see ALL the names, dbn't type any letters. Just hit <return>. 

The list of names will now appear on the screen. Write them down on paper so 
*you won't have to list them again. 

10. When you press return, you will end up back at the main menu again. You 
are ready to LOAD a schedule or schedules from the network to compete with 
yours. Choose 'B'. (AS usual, you will be asked if you are connected to the 
network. Ahswer Y or N appropriately.) Then type in the name of the 
schedule 4 you wish to have compete with yours and hit" <return>. If it can't 
find that schedule, it will give you another chance. If it does find that 
schedule, you will see it coma, into your Pet, line by line, showing you the 
category and program name for each time slot. " , 

II. Probably you will want to compete* your schedule against more' than one 
other schedule. So, when you get back to<the # MAIN MENU, choose 'B' again and 
load another schedule. Each time you return to the MAIN MENU, you will see 1 
the names of the networks you currently have loaded in your pet. 

J 

12. Finally, ^u^are^read^r to get ratings for your schedule! This is choice 
'G' on the MAIN MENU. Aftfcr choosing G, there will be. a pause while the Pet 
computes the ratings. Eventually, the ratings for e^ch. network will appear 
on the screen, waiting for you to press <return> at the end of each. 

13. Other things you can do* from the MAIN MENU include 'E', deleting a 
schedule from your workspace. This essentially means to 'ikload' a 

• schedule.. For example, if one of your competitors is too good r you might see 
how you do without 4 competing against it. * 



t 



14. You can also, using choice 'F', delete a schedule from the network* 
But, of course, you will have to know the i^ame of the group that created that 
schedule. So, you can't get rid of your competition just by deleting them! 

15. Lastly, you can QUIT, using choice 'H.' This is the right thing to do, 
especially if you want to SAVE the program to make a backup. 

Note: When you get a particularly good schedule, you might want to 'publish 1 
that fact by using the message system program, DANDELION; to send a message 
to . 

stiudentst, bulletins < ' 

so that others will know about good competition for their next schedules.. 
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VARIATIONS ON SIX WORKSHEET 



NAME 



NAME 



EXPERIMENT # 



OUTCOME * 



TALLY 



* 



EXPERIMENT # 



OUTCOME 



TALLY 



EXPERIMENT # 



OUTCOME 



ERLC 



TALLY 



EXPERIMENT # 



OUTCOME 



D<2 



TALLY 




VARIATIONS ONW ; A _ . 

Student directions for six, experiments 

Teacher^directiqns: Make three copies of 
this page, cut apart and tape to outside 
of appropriate bags. 



EXPERIMENT #1 "DIE" 

Shake die. 
Roll die; 

Record number that is rolled, 
Do 25 times \ 

(contents: 1 die) 



EXPERIMENT -#2 "SPINNER" 

Spin spinner. ^ 
Record letter the arrow points to, 
Do 25 times. 



(contents: -Spinner divided into six equal * 
parts and labeled "AJ&.C.D.E.F")' 



EXPERIMENT #3 "Mini Deck" . 
Shuffle deck. 

Choose one card without looking. 

Record number on card.' * , 

Return card to deck. 

Reshuffle. 

Do 25 times. 

(contents: Aces through 6's from a deck 
of cards') 



EXPERIMENT "Mini. Red Deck 11 
Shuffle deck. 

Choose one car^ without looking. 
Record number on card. 
Return *card to deck. 
•Reshuffle. 
Do 25 timfes. 

(contents: red 8's through 
red Kipgs from a' deck of cards) 



N 7 * - 
EXPERIMENT #5 "BLOCKS" , 

Mix bag. ' * 

Draw out one block without .looking. 
Record color of block. 
Return- block to bag. : 
Re-mix bag. 

Do 25^ times . ^ 
(contents: six different colored blocks) 



ERLO 



EXPERIMENT #6 "NAMES" 
Mix bag. 

Draw out card without looking. 

Record name on card. > • 

Return card t6 bag. 

Re-mix, 

Do *5 times. 

(contents: 6 cards, each'vyith 
a different'student's name) 
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VARIATION ON SIX 
'DISCUSSION WORKSHEET 



How are the six graphs the same7 How are they different? 



If the words and labels were removed, would It be very easy to teW which 
graph was whlch7 Why or why not7 4 



Are the heights of the columns about the same 



'or/ do -.they vary? Why or why hot;? 



Why was it important to shake the bag or shuffle the cards every time-? 



If we did each experiment 1000 times or a million times, pould you predict 
v/hat the results would be 7 *J 



Were certain numbers or people "luckier" than-others7 Would yoy expect the 
same numbers or people to 'be "lucky 11 If we did the experiment agaln7 



Would ;It be possible to be very 'Mucky 11 and roll 
10 1 •s'ln a row? 

1 00 1 1 s J n a row? ' • ~ 

100Q 1 's In a row? ♦ i 

i 

Wquld these happenings be likely? 

Think of other experiments you could do besides these six that would give 
very, similar results. 



0<* 



HOW TO MAKE A SPINNER .THAT REALLY SPINS 

1. Cut a circle from tag board.. Poke 
a nice round holfe exactly in the 
center. 

2. Cut a square piece of tag board that's 
a little larger than the circle. Poke 

, a hole through the center of this, too. 
Draw a line from the hole to one comer. 

3. From the scraps left from cutting the 

, circle, cut 3 little squares, about a cm. 
on a side e&ch. ' They'll be used as* wash- 
ers. Fbke' a hole through, eacji and' crimp 
them a bit, too. 



k. Take a paper clip and bend just the out^ 
side up., > 

5. Cut a piece of masking tape that^s about 
k cm or 5 cm lqngi 

6. Assemble the spinner by first poking 1 the 
paper clip through the square. ' Tape" i't 
on the bottom to hold it, in pl^ce. Then 

put the three washers on. 

# » 

7. Put the spinner face on next. ' 

8. Add a piece of tape to cover- the point . 
• of tfife paper clip. 

9. Now it's ready to spin. S 




Beans In the Bag Worksheet 



Bag Predictors: Bag Makers :_ 



Draw Record 



Color 



for 1st 

Ten Draws 



Total No. 
Drawn 
after 10 



Tally Total No,. ^-Tally T - r Total No* Tally Total No. 

for 2nd "Drawn for 3rd 1 * Drawn for 4th * Drawn 













1 














• » 










1, 






4 » 












f 



Prediction 



Actual Count 



Color 



56 



After 
10 Draw 9 



After 
20 Draws 



After 
30 Draws 



After 
40 Draws 



****** 



Color 



No. in 
Bag 



. 57 



Beans in the Bag 
Discussion Worksheet 



Was it easier to predict after 40 draws than after ^10? 
Why or why not? 



Did all three kinds of beans feel the same? 
Would a different feel affect results? 



/ 



Suppose we had 100 beans in the bag instead of 25: 
How many -would we need to sample to have a fairly accurate prediction? 
What if there were 1000 beans? 



PRBJE HME 
PROGRAM SCHEDULE WORKSHEET 



.Name Seed No._ 



Enter the program category number under ATC and ETS. Use arrows to show the 
length of e&ch program. To plan program schedule for PTN, enter category number 
and program name, (names should be limited to. 2 lines of 10 spaces.) 

* NET WORK 

A1C EES PTN 



7:00. 

7:30 

8:00 

8:30 

9:00 

9:30 

10:00 

1Q ;1 P 



CATEGORIES 



1. 


Game Show 


2. 


Situation Comedy 


3. 


Action/Adventure/Western Series 


4. 


Dramatic Series 


5. 


Movie 


6. 


News 


7. 


Documentary 


8. 


Sports Event 



7:00 
7:30 
8:00 
8:30 
9:00 
9:30 
10:00 
10:30 



Currently Watching Research 
Record i ng' Sheet 



Sample Si ze 



ATC, 



Cat 



' #0N 



ETS 



Cat 



#0N 



7:00 
7:30 
8:00 
8:30 
9:00 
9:30 
10:00 
10:30 



Sample Size 



ATC 



Cat 



#0N 



ETS 

> 

Cat #0N 



!( 



7*00 
7:30 
8:00 
8:30 
9:O0 
9:30 
10:00 
10:30 



Sample Size 



ATC 



ETS ■ 



Cat 



#0N 



Cat 



#0N 



9 
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People's Preferences Research 
Recording Sheet 



Sample Size 





uategory 




Favo r i tjs 


! 


want More 




1. 


Game 












2. 


Situation Comedy 




• 


» 






3. 


Action 








• 




4. 


. Drama 












5. 


Movie 








* 




6. 


News 








► 




' .7. 
8. 


Documentary 
Sports 














Sample Size * 










• 

1. 


Category 
Game . 




Favor i te 




Want More 




2. 


Situation Comedy 












3. 


Action 












A. 


Drama 












5. 


Movie 












6. 


News 












7. 


Documentary 












8. 


Sports 













Sample SJ.ze a 



Category 

1 . Game 

2'. Situation Comedy 

3. Action 

4. Drama 

5. Movie 

6. News 

7. Documentary 

8. Sports 



Favorite 



6, 



> 



Want More 
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PRIME TIME ' 
NETWORK RATING REPORT 



NAME - 



SEED NO. 



SUMMARY: WEEKS 1-5 



Network: 



• Cat. Rating 



7:00 
,f : 30 
8:00 
8:30 
9:Q0 
9:3Q 
10:00 
10:30 



Cat. Rating 



Cat. Rating 



SUMMARY: WEEKS 6-10 



Cat. Rating _ Cat'. Rating -Gat. Rating 



AVERAGE 
RATJNG 



OVERALL RATINGS 



NETWORK 



RATING 



9 

coir 
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GUESS M V* BRIG 1-2: 



RERDV. 



0 GOTO 1 60S 

1 REM COPVRIGHT MATH NETWORK CURRICULUM PROJECT 

2 REM SflN FRANCISCO STATE UNIVERSITY, 1981 



710 REM 
712 .REM 
-^t4~REM 
7 If REM 
718 REM 
720 REM 
722 REM 
724 REM 
726 REM 
730 REM 
750 REM 
?52 REM 
754 REM 
759 REM 
809 REM 
860 REM 
880 REM 
382 REM 
884 REM 
388 REM 
390 REM 



10 MAIN 
12 RULES 

14 SET UP BAG 
16 DRAW SCREEN 

15 DRAW HIST 
20 'NEW SAMPLE 
22 TAKE SMPLE 

24 DISPLAY SAMPLE 

26 FIRST SAMPLE 

30 GUESS 

59' INIT 

52 FILL BAG B 

54 VAR OF B&B1 



♦ 



68 SET DIFF - 
30 GET CHAR 
82 GET STRNG 
84 NONEMPTY S 
38 TO 'A 
■30 CLEAR LINE 



399 REM . 

100O REM MAIN ROUT IRE OF WHAT'S MY BAG 

1005 GOSUB 5000: REM INIT . * 

1O10 GOSUB 12000 TITLE PAGE 
1015 GOSUB 1200 : REM RULES 
1020 GOSUB '6000 SET DIFFICULTY 

-1025v.GOSUB 1600 :REM DRAW SCREEN , . 

1030 GOSUB 14©0:REM SET UP BAGS - 

1032 GOSUB 2400 SHOW ZEROES 

1033 GOSUB 260©:GOTO 105:7 FIRST SAMPLE 
1035 X=3:Y=21 :GOSUB9000:REM CLEAR LINE 

1040- PRINT"|YPE A aNUMBERi TO TAKE A SAMPLE, , 
1«41 x=3:Y=22:GOSUB9000: REM' CLEAR LINE 
1042 PRINT"! YPE 5tf§, OR 3PM- TO GUESS THE BAG. 

1045 X=3:Y=23rGOSUB9000:REM CLEAR LINE 
1050 PRINT " ^NUMBERS, OR flfll, JSPB, OR acg: "f 
1055 GOSUB 8400:IF<B*<"A"ORB$> ,, C"> AND VAL<B*><1 THEN 1045 
1957 IF vriL<B*>>1000 THEN 1045 
1060 IF VAL<B*»© THEN GOSUB 200O:GljTO .1035 
1065 GOSUB3000 :REM GUESS 
1070 X=5:Y=23 :GOSUB900O 
1075 PR INT "ANOTHER BAG <Y OR N>? M ; * 
1080 GOSUB8400:IFB*="Y"ORB*=" |"THEN1020 
1085 IF B*0"N" AND Bf <>"/"- THEN 1870 
J 098 PRINT"3SB PU WORKED ON "BN" BAGS 
1095 PR I NT "AND SCORED A TOTAL OF"TS"ll POINTS. 
1100 PR I NT "SI HAT'S AN AVERAGE OF " FN ROUND<TS/BN>"POINTS PER 
1105 PR I NT "3 a»0 LONG NOW! 

1110 END • 

1200 REM DISPLAY RULES 



6i 



1213 
1223 
1238 
124© 
1250 
1260 
1270 
1238 
1290 
1300 
1310 
1320 
1322 
1324 
1 33© 
1340 
1 350 
1 366 
1370 
1380 

1400 

1402 
'1408 
1410 
1420 
1425 
1430 
1440 
1450 
1470 
1480. 
1430 
1495 

1500 

1510 
1515 
1520 
1530 
1590 
1600 
1610 
1630 
1640 
1650 
1660 
1670 
1630 
1690 
,1700 
1790 
•1800 
1810 
1815 
1820 
1830 
1835 
1340 
1850 
I860 
1370 



POKE 59468,14 

FRINT"3 J3I UESS - V |RG 

PRINT"-, HAVE A BAG WITH 4 DIFFERENT CO'LORS OF 
PRINT"BEANS IN IT: 4, tr, AND *. t 
PRINT "Hh WILL SHOW YOU THREE BAR GRAPHS. RE- 
PRINT "OF THESE BAR GRAPHS TRULY REPRESENTS . 
PR I NT "MY BAG. * , 

PR I NT "S3 PUR TASK IS TO FIGURE OUT WHICH OF , 
PR I NT "THE THREE BAR GRAPHS IS CORRECT. . I 

PRINT" I HE WAY YOU DO THAT IS TO SJSAMPLEg BEANS j 
PR INT "FROM THE BAG BY TYPING A NUMBER i 
PRINT" <LIKE 10>. j 
PRINT"OHEN YOU THINK YOU KNOW THE CORRECT 

PR I NT "GRAPH, TYPE ITS LETTER. \ 
PRINT"8KR YOU GUESS CORPECTLY, YOUR SCORE FOR . j 

PRINT"THE\ROUND WILL BE: j 
PRINT" a--. — -,-AJ H5"MID*';STR$<FRC> ,2>"-</ Al~_ I 
PR INT"-. F VOU GUESS INCORRECTLY, YOUR SCORE j 
PR INT" WILL) BE J39S. , ! 
RETURN / j 
REM '-SE/T UP BAG 

TTL=© :FOR / I=0TO3 :SMPL>," I >=© :TTL< I >=Q :NEXTI 

X=0:Y=23:GOSUB9000:PRIHT"ja^-'ST fl MOMENT WHILE ^ GET REfldY: 
B=0:GOSUB5200:REM FILL BAG B / 
FOP B=1T02 ^ / 

: C =0 i REM COUNTER . j x 

: GOSUB 5200:DHE*="T" | 
: FOP B1=0 TO B-l 

: . GOSUB 54O0: REM- COMPUTE VARIANCE / 
": IF VAR<LV<DFF> OR VflR>HV<DFF> THEN DNE*="F" 
: T=T+1 :X=37:Y=23:GOSUB8800:PRINT"ia"CHR*«;255+95*<T lS) , 
: next Bl 

: C=C+1:IF C>5*B THEN B=2 :NEXTB :GOTO1410 
: IF DNE*="F" THEN 1430 
NEXT B - • 

FOP B=0 TO 2: GOSUB 1800 .-NEXT B 
BG=INT<RND<1>#3> 
Y=23:GOSUB3Q00 CLEAR CUE 

RETURN < 

REM DRAW SCREEN ^ ' . / 

PR I NT "P , iJ |ERE ARE THE GRAPHS / 
X=2:Y=i5:GOSUB8800 ' / 

PR I NT " | AG " BN ; T AB < 1 0 > " -I FF I CULT Y= " DFF ;TAB<2S.y #CQRE=/ " 
PRINTTAB<13>; 

FORI=0TO3:PRINTCOLR*<I>;" ";:NEXTI / • 

PRINT :PRINT" I HIS SAMPLE: 
PRINT"HI OTAL EACH: 
X=29 : Y= 1 8 : GOSUB8800 : PR I NT " | OTAL 
X=29 : Y= 1 9 : GOSUB8800 : PR I NT " I AKEN : 
RETURN 

REM DRAW A HISTOGRAM — » — 

BX=B*13 

X=BX+1 :V=1 sGOSUB3880:PRINT"?i" 
FOR I=10TO1 STEP -1 
X=BX :Y=12-I :GOSUB8300 
IF K10 THEN PRINT" "; 
PRINTMIO*<STR*<I*10>,2>"4" 
NEXT I 

X=BX+2 : Y= 1 2 : GOSUB8800 •* 
PRINT"© i 



j, 



ht-;t/2> >> 
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1330 
1830 
13O0 

132@ 
1936 
1940 
1930 
1955 
I960 
1965 
1970 
1975 
1977 
1386 
1996 

20W0 
2010 

2030 

2050 

2060 

2140 

2200 

2205 

2207 

2210 

2220 

2225 

2230 

2240 

2250 

2260 

2279 

2280 

2290 

2315 

2317 

2320 

2330 

2340 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2590 

2600 

2610. 

2620 

2630 

2790 

3000 

3050 

30,55 

3060 



X=BM+5:V=13:GOSUB8880 t ' 

FOR I=0TO3 :PRINTCOLR*< I :>;"'"; :MEXTI 

X=BX+5:Y=t4 :GOSUB8800 ' ' 

PRINT"J33RflPH "CHR*<65+B> ^ 
REM DRAW BARS 

FOR BAR=0TG3 . ' + 

: X=BX+5+2*BAR:V=12:GQSUBS800 \ 

: if bex<:b,bar:>=0Then 1380 « „5V* ■ 
: • print" jajar; 

: IF BEX'CB^BARXS THEN 1388 

: FOR I = 1 , TO FN ROUNDS <BE?i<B, BAR > -5.V5 > 

: IF 1/2 = INT <I^2) THEN PRI«NT"a GOTO 1977 

: PRINT" J|"; . 

: NEXT I 

NEXT BAR 

RETURN 

REM NEW SRMPLE 

X=5 : V=23 : GOSUB3000 
TK=VALu'B*.> 

GOSUB 2200: REM TAKE SAMPLE 
GOSUB 2400 "DISPLAY SAMPLE 
RETURN 

REM TAKE SAMPLE 

X=0:V=23:GOSUB3000:PRINT"jaiICKING M ; • 
C*=". " 

FOP 1=0 TO 3:SMPLECI5=0:NEXTI 
FOR B=l TO TK 

: GETA$ : IFA$="-"THENFORI=0TG3 :SfK I >=0 :NEXTI : RETURN 
: Cl=RND<n*lO0 
: T=0 

: FOR C=0 TO 3 

: - t=t+be;;(bcvO 

: if c1ct then ch=c:c=3 

: NEXT C n 

\ SMPLE»?CH>=SMPLE':CH> + 1 

.: IFB/5=INT<B/5>tHENPRINT"a"C$; 

: I F B/ 1 00= I NT i. B> 1 00 > THENC $=CHR$ < ASC < C* > - 1 ) : X=7 : GOSUB8800 
NEXT B 

FOR 1=0 TO 3:TTi.<Ii=TTL<I>+SMPL<I> sNEXTI 

TTL=TTL+TK 

RETURN • 

REM DISPLAY SAMPLE , 

FOR C=0 TO 3 > 

: X= 1 3+C*4 : Y= 1 7 s GOSUB880O 

: PR I NT " . IIH" M I D$ < STR* < SMPL < C ."> > .,2 > 

: Y=13:GOSUB3800 

• printm.id$<str*<;ttl'x:o.,2> 

NEXT. C 

X-35 : Y= 1 3 : GOSUB8S00 

PR I NTSTR* < TTL J "v. 
RETURN 

REM FIRST SAMPLE 

X=3:V=22: GOSUB 3000 "> • 

PRINT" [ON MANY* BEANS TO SAMPLE? "; - • . . 

GOSUB8400:IF VflKBIXl THEN 2610 

RETURN ' • v 

REM THEY' GUESS ' \ 

GUESS=ASC<B$>-65 \ . ' 

X=0;FORV=20 TO -21 :GOSUB3000:NEXTY . . _ . j_J 

X=5sY=22:GOSUB3000 ' 
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3ti65 T=DFF*FflC -TTL:IF T03 THEN T=€ 

3Q70 IF GUESS=BG THEN GOSUB 3200 

3088 IF GUESS O BG THEN FRIh4T M fl/t>NE, IT WAS BAG "CHR*<S5+BG> 

3190 RETURN " 

^320d^R£M CORRECT GUESS 

3210 PfeINT"fl| HAT'S RIGHT ! i-J0R"T"POINTS! " :TS=TS+T 

3220 X=34:V=15:GOSUBS800:PRINTTS 

3230 RETURN * 

5800 REM INITIALIZE , 

5010 T=RND<-TI:> - ' 

5020 TS=0:REM TOTAL SCORE 

5625 BN=0:REM BAG NUMBER 

5030 d$= " mmmmmmsmmmsmsssm n f 

5040 : BC*=" ' 1 

5045 DIM LV<3> ,HV<3^ ,BEANS«C2 ,3) ,SMPL<3> ,TTL<3> .,CGLR$<3:< 

505© REM FOLLOWING RRE TBI M ITS *0N VARIANCE FOR VARIOUS DIFFICULTIES 

5060 L V 1 ' = 150O : H V < 1 X^^OO • * 

5062 LV» 2 «=50O :HV<2^«1580 . 

5664 LV<3.^=50:HV<3i=:500 * * * , 

5070 cbLR$<0.> = "&" :COLR*,<l> = "fr" rCCLP^^^'a-fa'' :C0LR$<3>*" jgfeB" 

5080 def fn round 00 = i nt 5> 

5o90 r*=chr*'" 13> :cr=59468 * mv 

5100 fac=5©:rem difficulty factor 

5196 .Return 

5200 ( rem — : — fjll bag b 

52 10 T=l GO : REtT TOTAL J 

5220 BEflNSK<LBp0^«RND*:i >*S1 

5230 T=T-BE:-i^B,0^ 

5240 BE^.B.l 'jsRNDCDAT 

5250 t=t-beb<b,i> % 

5260 bek»,b.2>=rndo:«*t 

5270 T=T-BE;i'B,2> 

52S0 BE^-' B r 3.J—T 

5230 RETURN 

5400 REM VARIANCE ON BAGS BAB 1 

5410 VAR=0 

5420 FOR I=@ TO 3 - 

5430 : VRR=VRR+(BEXkB,I>-BEX<Bl,I>>?2 

5440 NEXT I f # 

5450 RETURN 

6000 REM--' SET DIFFICULTY . ' + 

, 6005 K=5:V=2*3:GOSUB9000 

6007 ^=5:V=22:GOSUB9000 

6010 PJ?INT"-«OOSE LEVEL OF DIFFICULTY. 

^fr^PRINTTRB'tSV'l IS EASIEST^ 3 IS HARDEST ".? ; - ' 

6030 GOSUB 3400:IF VAL<B$><:i^OR VAL<B*>>3THEN6005 

6040 DFF=VfiL<B*.V ■ 

6050 BN=BN+1 " • 

60«S50 GS=0:REM GAME SCORE' j - ' 

6090 RETURN - • * ' 

8000 REM GET SINGLE CHAR — - — • ' 

S010 T=TI ' , 

8020 IF TKT+30 THEN PRINT"W ; :GOTO 8050 

' 8030 IF TKT+60 THEN PRINT" H";:GOTG 3050 

8040 T=TI t ■ . 

8050 GET A*: IF f\$="" THEN 3020 

3060 PRINT" ||" ? : RETURN -> 

3200 REM GET STRING fc o 

8220 GOSUB S000:A=ASC';'A^> * v / 

8240 IFB$=?; , "AND- : A=20.THEN 8220 



8256 IF B$-"" AND R=13 JHEN RETURH 
3260 IF A=13 THEN PRINTfi$; : RETURN 

327© IF A=20 AND LEN<&$><:2 THEN' PRIHT^ ? :B*»" 11 :GOTO 82 
8280 IF fl=20 THEN PRINTS 1 * ? :B$-LEFT$«; , B$,.LEN<B$.'. , -1 > :GOTO 
S5T30 IF R<32 OR «.R>12? AMD fl<161> THEN §220 , 
8315 IF/LEN<B$>==38 THEN PRINT 
8320 PfilNTA*; :B$=B*+A* 
-je 8325 I Ffl*=CHR* < 34 > THENPR I NTCHR* < 34 > " II" »~ 
834 6 GOTO 8226 

8400, REM GET NON-EMPTY STRING , 

8410 'B$==" M : POKE 158,0 

8426 GOSUB 8200 I 
8430 IF B*="" THEN 3420" 
8440 RETURN - 
. 8600 REM**WRIT FOR RETURH 

8630 PRINT" 10 GO ON., PRESS S^rt M * 

8640 pbKE158,0:GGSUB8000:fl=flSC<fl$> * f ' 

8656 IFR=13THEt48SS0 

8676 G0T08646 

8680 RETURN* 

3860 ,REM-TO X,Y- ' 

S810 'PRINT "IT :PRINT"S"; . , 

8826 IFX=0flNDV=0THEN RETURN 
3830 IFX=8THENPR INTLEFT* r ! 0$ , V > ? : RETURN 
- 8846 IFY=6THENPRINTTABOO ; : RETURN 

8856 PPINTLEFT*<D*,V>TRB<X>; * 
8860 RETURN 

9060 REM CLEAR LINE RT V AND GET CHAR 

• V026 X1-X:X=0:GGSUB8800:F'RINTBL$? 
90 30 X=X 1): GGSUB8S00 

9058 RETURN ' j\ 

100O0 REK DIAGNOSTICS \ 

1O01O FOR Bl=6 TO 2 
10620 : FOR CI =6 TO 3 
10630 : 'PRINTBEK<B1,C1>; 
10040 : NEXT CI :PRINT 
10050 NEXT Bl 
10066 RETURN 
12000 REM**TITLE" PAGE 
12005 POKE CR,14 

12010 PRINT ,, a , TflB<13> ,, SBkV^* M I *l SET 
12015 PRINTTRB<6>"* PART OT^FHE-**S"L^ A .-NITS 
12020 PRINT" BV THE NtfTH NETWORK -URRICULUM "feOJECTH 
12036 PRtNTTAB's 16> m #-j* /SHIHIIS4. 6 l^-M 
12060 PRINTTAB<6>; :QQSUB8600:PRINT"tr' t 
12076 RETURN 
READS'. * 

t 
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PR I'jfyE TIME 1 



READS*'* 



'8«...QOT©l.ei0:REM CdPVRIGHT MATH NETWORK CURRICULUM PROJECT- 1982 . '. '. 

. 1 'PRIMT' l 3";':P0KE5S'468, 12;RETURN '•..-*. 
'2 -PRIhfT-"3"; :P0KE59468,14:RETURN ■ ." 

3 X=8:60SUB8 :PRI,NT.,"^MJ8T ft « MOMENT. . sRETURN ' • ' "~ '• 

'4 .GOTO8000 % /-.. 

. 5 .GQTG8200 * " , •„,• ' * • •* 

6' GOTQ9408 - * ' , " - ' '■ 'J, 

?' GOTQ780© . 

s ooTOseee * • r • \ . . • * \\ 

v 9 GOSUSS : I FFEEK 59468 >. = I4THENRP IHT" W ONLY HAVE *"PB" . " ; : RETURN 
10 PRINT "YOU ONLY $f?VE *''PB: RETURN . - •'. * . '- • *, •;'"'* 

It PRINT" 7:00?* sPRI^T iPRtNT,". 7 :30 " ; PR I NT : PR I NT " 8?00" :PRINT :PRI«T" 8 s 30 "SPRINT . " 
12>PINT" 9 :00*:PR I NT: PR INT" 9 :3Gi"';PRINT.;PRINT" i€i-:08" :PRINT :PRINT" 40 :30" 

<13' 'PRINT :PRINTL£;;RETURN ■ , ' , 

20 REM COP YRjGHT ; 1 98 IV: MHCP, SFSU *;'.,,-. 
25' REM AUTHORED BY -DON MILTON, DESIGNED BY JOAN AKERSJ , S , 

'188 G08UB2 sPR I NT : PR! NT : PR I NT " ' fOU ARE ABOUT" TO DO A TELEPHONE I 

181 PRINT" SURVEY THAT- ASKS PEOPLE TO KEEP A r ' • \ ' > . 

182 PRINT" ^RECORD OF THE TELEVISION PROGRAMS' '• ' • • 
* 103 PRINT" THEY HATCH .ON | UESDA V . N IGHT J -IF ANV. *.. * \ , 

104' PRlNJ" , -ESULTS WILL VARY- -SOMEWHAT FROM * , '* 

185 PRINT" WEEK TO MEEK. '* ; . . -'" , . ' 

188 '/,=2 :'Y=20 : G0SUB8 :PRINT ".| 0 RETURN TO _ESEARCH -EPARTMENT , " fW - „ 



MM"; :IL=4 :B*="" 



"} : GOTO 110 
"TRESS 



18;^ V=21 sGOSUBS :PRI'NT". • ■ TYPE <3«.|-,~| ■ 33!>" " 
118 ;i=2:V=13:G0SUB8:F r RINT" |OW MANY HOUSEHOLDS? 
Ill GOSUBS200 :V-14 :GQ3UB3888:PRINTSP*; 
115 IFPE£=ES$THENRETURN *' "• . 
128 SS=VAL-;B|.' :IFSS<1 OR SSQ I NT < SS > THEN 118 ." . ' -.' ■ 
,148 IFSS>PBTHENV=1'4:G0SUB8 :PRINT" |0U- ONLV HAVE $";PB:" 
150 PB=PB-2*SSsV=18':GOSUB3:RETURN ' '■' 

208<G,OSUB2:FRINTrPRINT:PRINT" PU HAVE "NO MORE MONEV. 
210 'PRINT" ^l.TO RETURN TO -ESEARCH » 

220 PRINT" -EPARMENT, "-; - - 1 - • - / • . 

230-GOSUB4:IFA*OCHR*<13>THEN230 ~ - '' \ 

240 RETURN '• ' 

380 G0SUB2 .-PRINT :PRINT" --,N THIS SURVEY/- PEOPLE THROUGHOUT * THE ' 
318 PRINT" COUNTRY ARE" QUESTIONED OUT SIDE OF" : PR I NT?" SUPERMARKETS 

KED': t ' . . ' ' ^ - ^ . *r.»'' ' •• ' • 

328* PRINT: PR I NT"' ' 1 OHAT, IS VOUR FAVORIJE- 'KIND OF/ J [. X. " .-PRINT" - PROGRAM? ' 

.330 PRINT" 2 OHAT KIND OF f JX. PROGRAM WOULD YOU"<:PRINT" ' LIKE TO SEE J10R 

e' -Of? -. ■ - r ,<" - - ■ • * 

341 X=l >V>13sG0SUB$ SPRINT" i0W MANY - PfeOPLE ,T-0 SURVEY? 
'343 G0SUB5 :Y=14 :G0SUB8 :PRINTSP$ ; :.IFRE*=5S*THENRETURN 
345 S,S=VAL/:B$>:IFSS<10RSS«>INf<S8>THeN34i 

349 IF3*SS>PB>THENV=14:eOSUB9:GOTd341 

350 PB-PB-3*SS : RETURN ''•.'.'- ' " - V , . 
J 600 GOSIilBjL :PRINTTAB£ 10> "JJ'RbGRAM. SCHEDULE "t. * " i 

610vPRINt' v . , VaA-TCi . " JSTSS. ^PTNB ■ 

628 C^e:GaSUBll:PRINTTAB<12.V'CATEG0RV" . -L . 



-I HEY ARE AS 



li»m".^IL=4:B.^=" " 



623 PRINT" 31BGAME ! Jg2SSIT. COM ,33WdTI0N ^BDRAMA" •'. 

625 PRlNT'^j35S10VlEvj3SWEWS ' a?B30CUM ,. ^s^PORTS " , v 

626 PRINT'.'. J3TIME1: • jSLENGTHp:'.' :PRlNt" jaCATEGORY*: 
638 LT*="'" :FORI=0TONT :V= 1*2+2 sCOsSC;^©,*! >+l :Cl=SdX< 1 I>+1 



jJ;-IAME! 



640 IFLEFT$<PT*<8,n r l>0" 
645 I FLEFT* < PT* < 1 I ) r 1 > O " 



" THENX45 : G0SUB8 : PR I NT " CO ; 
P THENX=*t6-: GOSUBS : PR I NT '*j|*t$l ; 



*•-. ' O ■ 

-.ERIC 



t -89 



'( 



650 X=7:GQSUB8:FRINTLEFT*' PT^O.I!' .9.;; :X=18 :G0SUB8:FRINTLEFT*' , PT* k 1 ,1; ,9.« ; ' 
660 V* V+ 1 : : GQSUB8 : FF I HTM J D$ <■ Pti 6 , 1 > 1 O V 

67© : :=18:GQ;3UB8:PFIHTMIp$'.PTf a , I .i , 18^ s :LT*=PT*<2 . I> :MEXT • , % v 

> 675 GG<UB900* ^ 

, 630 X=&sV=24:G0SUB8:PFaHT J, ESCfiFE=CiJE.HIFT@S^ : ,F I N I SHED= CifSH I FT ag^" ? :UP=0 
70S J<=7:V=22:G0SUB8:PRINT" IIHIIi" ; :B*«" " : IL=4 :TF=1 :GGSUB5 ■ 

702 IFRE*»e£*THEHRETyRH ■ 
705 JFPE*"flC*THEN8<S0 . 

710 Ti'=VaL».B$ ^/lOOrlFIHT <T1 ><70RIHT»:T1 !>>1 0THEH706 

720 T2*INT<: <Ti»IHT»:Tl > >*1G/. 6*1 00>/1OO : I FT2O5ANDT2O0THEN700 

730 Tl-IKTv't 1 + ^T2*. l-7>>*2> :TF=*0 m 

7^0 X=22 :.GGSUB8 :PRI£fT' mil" ; : IL=3':B$=" " :G0SUB5 :L=VAfcxB$..« *2-t : IFRE$=ES.£THEN70O 
' ' 745 IFPE^flC*THEH860 

750 IFL<OGRL>50RT1+L>70P.L<>IHT<L.>THEN740 % 
760 Xrll : V=23 i G0SUB3 : PR I NT " U\: ;IL-1 :G0SUB5 s IFRE$=ES$THENV=22 -.GOTQ740, 

77© Cfl=VflL<:B*W :IFCfl<0GRCfl>7THEN760 
780 :G0SUB8.:PRIHT" ■ BIMlHflf II1I11HIBI HI" ; s IL=2tf aB**" " :GC 

\ 7'85 IFRE*=flC*THENS<50 , ' • ' 

•*790 W*=LEFT*» B**SP*,IL> s IFRE*=ES*THEN76Q ... 
795 IFPE#=flC*THENS60 
80p 6CKi2,Tl\>=Cfl*PT*<2,Tl j=N* 
820 IFL=0THEHS'5O ' 

830 F0RI = 1T0L :SC?rt2 . Tl + I >=CR :PT*<2 ,Ti + I >=N$ :NEX"EI y 
N 850" G0SUB900 :G0T0700 , 
&60 FORI=8TO7:IFSCX<2,I>>=0THENNEXTJ : RETURN , 
870 GOTG700 " 

900 LT$= " " : FOR I =OT0NT : V= 1*2+2;: C2=SCX < 2 , 1 > + 1 

91 O IFC2<1THEN980 " ' > 

* 920 IFLEFT$< PT$' 2,1.^1 ^O'V "flNDLT*OPT*<2 ^ I ) THENX=27 :G0SUB8 :PR INT , ']3 ,I C2 ! 
930 X=29 cp0SUB3:IFLT*=PT*<2, I ;THENPfclHT ,, li|. "LEFTUCFI*, 10) ; :GOTG950 
940 PRINTLEFT*«'PT*'?2,I> rlO> ? ' T ' v 
950 V=V+1 :X=29 sGOSUBS : rFLT$=PT:S«;2 , 1 > THEHPR I N TR I GHT* <; F I $ .9 > " ,l ? :G0TG980 
960 PR I HTR I GHT$ PT^ »/2 , I > , 1 0 > ; w 

/980 LT#=PT£'.'2 r I ^ : NEXT I ;RETURN , , ' 

1010 GGSUB1200VGGSUB9200 ^ * 
1O20 GGSUB2O0O :GOSUB22O0 ^ , 

1040 GOSUB3000:UP=0:IFRE$=ES$THEMJ020 ' * ~. " • * 

105O J,FRHJ:= ,, * ,, THENGOSUB480O:IFRE^=ES*THEH1040 * t - 
f060 GGSUB6OO:TF=O:IFRE*=ES$RHDWK=OTHEH1040 
1065 PJK=W{<+1 :GOS4B720O 4 

1O70 X GGSUB700O : IFANS^" | M ANDWK= 1 THEN 1 060 
1O80 IFWK=1 THEN 1065 

1 lOO END , \ * m 

12O0 d$= " mmmmmmmmmmsmssi " " :%. ,,: rE6 $= " - m = f i $^ N - i 

1220 SPi=" ' ' " 

14O0 NC'-7:riD=15.:NN=2:NL=5:NT=7:PB=lO0O:DIMPT$<NN,NT>,N^^ . . 

1405 Dirisc;^NN^;KO^ 

'1410 D I MDP-; C NC , NT^ , Lfyi < NC , NL^ , LS^ < NC > , SN$ < NC , 4^) , FX < 7 > , Ffl^ 7) Jtoi < 7 > ^P^i n 7 ) 

* 1420 FORI=0TONC:FORJ=0TG3:REflDSN^< I ,J> sHEXTJ. I , 
143^ FORI=OTONC:FORJ=0TONT:READDP?i<I.,J> :NEXTJ>I # • ' \ " * **~ 

* 144£ FORI=OTONC:FORJ=0TO^L:REflDLfl^<-I, J> :NEXTJ,t : Vjfl=. 2«:SV=. 5 ' 
^450 FORI=0TO7:REflDB;-XI> :NE%TI ?OEFFNR<X> = lNt<:x'*. 5> ■ 
1460 QEFFHN<«>=SQR<~2*L0G<RND<O>V*C0S<2*iT*RHbCl. , ?> # * 
1470 DEFFNM<X> = <FNN<0>*8QR<X*<l--X.VSS. , >+X)*SS:REtURN • * 4 
20OO G0SUB2:X=9: , T , =3:G0SUB8:PRINT n * 3-DIGIT 'CODE' DUMBER $f \ 
2020 ¥=5 :G0SUB8: PRINT" WILL SCHEDULE THE OTHER " 
203O V=7:G0SUB8\PRINt ,, NETWGRKS' PROGRAMS. PU 

• •2040 
• ' '2050 




V=9 :GGSUB8 :PRIHT "WILL N^ED X TG REMEMBER-% 
V= 1 1 ,slG0SUB8 : PR I NT " TH I S NUMBER TO GET BACK 
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EMC 



2668 
2070 
20S0 

2100 

2110 

2200 

2210 

2400 

2420 

2430^ 

2440 

2450 

2600 

2610 

2620 

2621 

2622 

2623 

2624 

2625 

2630 

2640 

2650 

2800 

2S10 

3000 

3820 

3O30 

3040 

.3050 

3068 

.3070 

3OS0 

3290 

3203 

3205 

3207 

3210 

3212 

3213 

3215 

322© 

3230 

4800 

4020 

^090 

4200 
2*219 

-4220 
4230 
4240 

. 4550 
4260 
4279 
4280 
4290 
430G 
4310 
4320 
4325' 



;B$=" " ;!IL=3 



V=13:G0SUBS:PRINT"THE SRME SCHEDULE. 
V=1S*G0SUB8:PRINT"-NTER 3-DIGIT CODE:, IBI1I' 
GOSUB5:IFLEN<B4OO3THEN2070 ♦ 
SN=^ftL i:B* >*I FSNC 1 GRSNO I NT < SN ) THEN2&70 

X=PND<-SN> :SS**B*:V=21 :G0SUB3 : RETURN , " 

GOSUB2800 :F0PI=OT0NN-l :FORJ=0TONT :IFSC;;< I , J) ;0THENGOSUB240O :GOSUB2600 

NEXT J -I : RETURN * - 

CN=0 :FOPK=0TONC : IFDRfXK, J>>=MDTHENLSK'XH?=K :CN=CN+1 

NEXTK r . * 

CH=LS^ <l NT k PHD < 1 > #CN ) > : I F I -Q 1 THEN2450 

IF CH=SCtf<0 A J>THEN2430 

SC2CI /J>=CH:RETURN . \ 

CX=0 sMfl=NL : I F J>3THENMR=NT+ t-J 

L=INT<RNP<l>*MflX> :CH"SCK<I,J) ' ' ^ 

I FDP5i <CH ^ J * -LflTi < CH , L > *DPX < CH , J > / 100<MDTHEN26 10 

LNK'*I.,J>=L -~ , ' " « 

XX=INT»:RND<1 >+4>:IFHK»:CH;>fi<><GTHEN2625 , 
CX=CX+1;IFC^:=4THENGGSUB2400:GOTO260© = 
G0T02622 * 4 - « ' 

PT$ »" I pJ > =SN$ <GH . #X s ' : N<i < CH ^ XX s > =CH 
X>4XCI,J>=L:IFL=0THEN2650 * 
FOPLL=lTOL':SC'-i< I ., J+LL>=?CH :PT$»r I r J+LL>=FI* :NEXJLL 
RETURN 

FORI=0TpNC:FQPJ=BTO4:N5i<I^J>«-l :NEXTJ.I 

FOPI=0TONN:FQPJ=0TQNT:SC^<I,J>=-1 *LNE< I , J>=-1 : NEXT J, I : RETURN 
G0SUB2:X=7:V=4;G0SUB8:PRINT" PU MflV : " ; % 

^:=9: , V=7;G0SUB3:PRINT n 5»»B -ESEflRCH |x V IEMING M SPC<21 ; "PRACTICES. " s 
V=ll sGQSUBB sPRINT" SITS SCHEDULE H ✓ "5 PRIMES; 
X=ll :V=12:G0SUB8:PRiNT"TIME ! UESDflV PROGRAMS"; 

X=7:V=16:G0SUBQ:F?RINT U |0UR CHOICE <j3*§^aiS>: " J :B*=**V' : IL=1 :UP=1 
GGSUB5:IFRE$=ES$THENRETURN \ ' • 

IFB*<:- ,, * ,, flNDB*0 M I "THEN3050 r ' * - * 

flN*=B*: RETURN * * 

3U=0 :FORI=0TO7 :F^'s I .i=FMM< B'X I .V100.J :SU=SU+F«^ I > :NEXT sFORI=0TO7 

IFSU<=0THEN3207. . , > 

Ffl/i C I ;> =FHR < F« f f> /SU*SS . 

I FFftX kl >'<8THENF^?i < I > =0 

hfEXT. ' ' ^ 

SU=SS :FOR,I=0TO7 :SU=SU-FflX< I > :NEXT . 
D= INT t RND < 1 > *8 > : Ffl/i < D > =FRtt< tf> +SU : I FFRX < D > <0THE;NFRX <C D ) =0 : G0TG32 1 2 
FORI=0TO7:P%< 1.^=0: NEXT tFGRI=0TGNU :FQRJ=0TONT :XX==SCX< I ,-J> zf^XX^Ptf <XX>- 
NEXTJ^I :FORI=0TO7:PX<I>=PX<I>/16:NEXT:FORI=0TO7:F^<I>=BX<I>*'s 1-PK<I>> :| 
FORI=0TG7 :MJi< I0«FNM<FX< I V100> : NEXT : RETURN 
GCiSUB4200:IFRE$=ES*ORRN*= M -* M THENRETURN / 
ONRSC < RN* >- 1 92DGSUB4400 , 4600 r 4800 
"GOTO4000 ' * . ' 

G0SUB2 :PRINTTRBO> "-£SERRCH ■^PRRTriENT M 

PRINT :PRiyT"GE CRN PROVIDE VGU WITH ' INFORMATION TO" x 

PR I NT "HELP VOU PLRN THE PRGGRRM- SCHEDULE. " 

PRINT" PUR BUDGET FOR RESEARCH IS $"MID$<'STR$<PB} ,.2}" . ; 

PRIhtT" '^r^ I ♦X^.L'M.L^ : ^ u '; * 

PRINTRI G HT$< STR$ < PB > r LE N <'ST/?*< PB > >- 1 > 

PR I NT " K% NFORMRT I ON RVRILRBLE : ' * ^ 

PR I NT" S' rTHER NETWORKS CURRENT PRGGRRM 

PRlNTTRB<6> ,, SCHEDULES.'C-r#| *, FREE^. ' . 

PRINt M a . OHAT PEOPLE ARE, CURRENTLV . . * % ■ - 

PRINTT^B<5>"WRTCHING <~T*I : *2. PER HOUSEHOLDS . 
PRINT"H ^ -M'OHRT PEOPLE . Sgf,^* f HEV* LIKE TO , 
P^INTTRB<6.V"WATCH 4 <~T*\ : $3 "PER PERSONS. 
PRINT"S PU CRN RLSO: - 



•1 

IEXT 



r 



o 
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433© 

,4356 
4360 
4370 
4330 
4400 
4430 
4435 
4460 
4430 
4490 
4500 
4505 
4510 
4520 
4530 
4540 
4660 
4635 
46 1 0 

S >, 4 > 
4«?S0 
4635 

• 4660 
4680 
4700 
4710 

, TS > ; 
4715 

1 ,TS> 
4720 
4730 
4740 
4750 
4760 
4770 

.4780 
4785 
-#4786 
w '*47S7 
4788 
4790 
4800 
4303 
4885 
4810 
4328 

-4825' 
4830 

- 4835 
<4840 

- 4860 
4870 
4880 

1 4897 
4980 
4910 
'4915 
4920 
4930 



PR INT "B 



aHi SCHEDULE "II 



PROGRAMS. 



X=0:V=22:GOSUE8: PRINT" PUR CHOICE: III' ; :B$=" " : IL=1 :UP=1 
008UB5 : IFRE*fES*OPPE*=AC*THENPETURN 
IFB*r= ,, * ,, HNDB*<= ,, - H THENHH*=B*:PEtURN - , 

GOTO4350 . • 

G0SUB1 : PR I.NTTAB«s3> "PROGRAM SCHEDULE CODE : JS" ;SS$ 
PRINT :PR INTTAB':9*> "ATC ETS 

print" jaTiriEi;a:.RTs jsshomb , a:.RTi asHowi" 

G0SUB11 :PPJNTTRB»: ^"CATEGORIES" :PRINT"1 GAME ^<3 RCTION 5 MOVIE 7 DOC 
PRINT"2 SIT COM 4 DRAMA 6 NEWS 8 SPORTS ^ * 
FOR I =£iTGNT : V= I *2+4 : X=6 : G0SUB8 : C©=SC?i < 0 , I > + 1 : C 1 ~SCS < 3? , I > + 1 
IFLEFT$',PTrC0V D^IK)" "THENX=6 :G0SUB8 :PR*NTC0; 
I FLEFTS '.. PT$ < 1 , I > p 1 > O " " THENX=2 1 :GOSUbS /PR I NTC 1 ; 

X-10 :G0SUB8 :PRINTLEFT*<PT**0, I > ..9> ; :X==^5 sGOSUBS :PRINTLEFT£ < PT$ < 1 I > , 9> , 
V=V+1 :X=10:GOSUB8:PRINTMID$< PT^0,I ^/10); :X=25:GGSUB8 
PPINTMID$',PT$--:i ,I>,10> ? :NEXTI , ' 

X=8 :V=24 :G03UB8 :G0SUB7 :RETURN 

IFPB=0THEN200 * * . • " 

GOSUB100 :UP=0 :NU=1 « t 

GOSUB5000 :G0SUB1 :PRJNT "HOUSEHOLDS WATCHING TV SAMPLE SIZEJ8" ;R IGHT$kSTR"*'.S 

j 

PPINTTAB':9.V'flTC" sSPC<14> ?"ETS s 

PRINT" 3TIME1 ^SJCATg gSHOWl > m ONi flCATl J3SHGWS 3# ONB" . > 

GQ3UB11 :PRINT"CATEdpRIES n :PRINT"1 GAME 5 MOVIE" : PR I NT "2 SIT COM 6 NEW 

PR INT H 3 ACTION 7 DGCUM" $PRINT"4 DRAMA 8 SPORTS"; 
FORTS=0TONT : V=TS*2+3 : X=6 : G0SUB3 : C0=*SCtt < ® : TS> + 1 : C 1 =SCJi< 1 ,TS>+1 
IFLEFT^'-.PT^<.0 r TS^ , 1 > O " "THENX=6 :GOSUB8:PRINTC0; :X=18 v :GCiSUB8:PPIHT"a ,, TL;:'.0 

\ • * 

I FLEFT$' PT£'.l -TS >~ c 1 j»O n t "THENX=23 sGOSUBS :PRINTC1 ; :K=35 :GQSUB8 :PR 'I NT" STTL:> 

X=9 : GQSUB3 : PR I N JLEFT* < PT£ C 0 ^ TS > 9 .> ; : X=2£ : GQSUB8 : PR I NTL£ FT* OPT* k 1 r TS > r 9 > ? 
V=V+1 :X=9tG*6sUB^PRINTMID*tPT*<'0,TS^^10 , >| :X=26:GGSUB8 
PRINTMID*<PT*kl,TS>,10Ji ? :NEXTTS * * 

;<:=16:V=20:6O3UB8:PRI^T"SURVEV ANCfTHER WEEK? " ; : IU.-J :B£=" " 
G0SUB5 : IFB$0" V" ANDB$O"N"THEN4750 

IFB*="N"THENRETURH * ' t • 

X=2Q;V=21 :GQSUB8:PRIMT l, SjaMPLE SIZE= Mill" ; s I L=4 : B$= " " 

G0SUB5;X=19 :V=22 :G0SUB3 :PRINTLEFT£ <SP$,20> ; : I FRE*=ES*THENRETURN 
SS=VAL^*> :IFSS<1 OR SSOINT<SS>THEN4780 . ^ "* ' ^ 

I FPfe=0W»EN200 1 , ' ' 

I F2*SS>PBTHENX=19 : V=22 :G0SUB9 :GOTO4780 * <^ 

PB=PB-2*SS :GOTO4610 

IFPB=0THEN2O0 , - " . 

GOSUB300 . . i > v ' 

G0SUB2:PRINTTAB»;7> U J -..X. "PROGRAM "REFERENCES " jfeHT : PR IWT" #*\HL" J3"SS 
PRINT" / ia-*XT--J "1IJ*5*/I ^i^PSil 

PRINT" rr • = 1 1 1 ' ' \ 

F0RI = 1T07:,PRINT ,K I I I.I' 

PRINT" I : 1 = 1 1" : NEXT I m i 



PRINT" I , v - I . I I ; & 

X=0 S .V=5:GOSUB8:PRINT"-| 1 - 1 AME *HOW" :V=7.:G0SUB8 :PRrNT"«l» I 2 *IT / ' rOMEDV ^ 
V-9 :G0SUB8 : PR I NT" I I 3 *CTIGN/OESTERN" :V=11 :G0SUB8 :PRINT"~ I 4 -RAMA SERIES 
V=13:G0SUBQ :PRINT"| I .5 NOV IE" :V=15 :G0SUB8 :PRINT"r I 6 s£\>\S 
V=17:G0SUB8:PRINT ,, -j 7 -OCUMENT ARV " : V= 19 : G0SUB8 : PR I NT " || 3 #PpRTS "VENT 

PRINT"' 1 ■ ■ — * :V=22:G0SUB3 

NU=1 :GOSUB3200:FORI=0TO?:X=21 :V=I*2+5 :G0SUB8 :ftX=FA5i< I > 

PRINT"a"><X; :X=31 :G0SUB8:XX=FNR<MX< I : IFXX<0THENXX=0 . " ' * . 

PRINT" 3" XX;.: NEXT I , . ' : 

X-l :V=22:G0SUB8:PRINT M -0 VOU WANT ANOTHER SflMPLE? " ; :4L=1 :B*=" " sGOSUBS 

IFRfe-4J=ES^ORB^="^"THENRETUp > r4- ^ 



IBII! : : IL=4 :B*=" " :G0SUB5 :V=24: GOSUBS 



4*340 IFB*O n |"THEH4920 . ; 

4956 V=23:G0SUBS:PRINT"#*-ri> 
4955 IFRE*-ES$THENRETURN 

4968 PRINTLEFI*'.SP$ .2.2} ? :SS»VfiL< B*>,: IFSS CrORSSOINT<SS>THEN4956 
45*65 IFPB=0THEN290 ' . V* , 

4970 IF3*SS>PBTHEHV=24:G0SUB9:G0TQ49£0 ^ s \ . * 

v 498y PB=PB-r3*SS(:GOTO4305 > 

5O00 FORI=0TONU :flV;;*. I y=0 :NEXT :FORI=OTONT :G0SUB52QQ :T3OSUB5480 :GOSUB5S00 
5610 GOSUB6000 : NEXT : RETURN f . 

52O0 Hfi= 1 0U : FOR J=0TONU i I FLNX < J , I >=-lTHENfifl=fifi-Pfl^< J> 
^'5210 NEXT J : RETURN 

5400 GOSUB5600 :NW=RR :FORJ=0TONU : IFLN/i< J, I X>-1THENNW=NW*< 1-DX< J>/1005 
341© . NEXT J : WT=Rfl-NW : FOR J=©TONU : I FUM< J., I > O- 1 THENPfi/i < J > =D^<. J > /SU*WT 
5420 NEXTJ ^RETURN — 

■5600 SU=0 :FOR_T=0TONU : IFLN'i kJ , I >=-iTHEN56S0 

5620 D'i »v J *=DP;i<SC«< j\ 1 J - 1 > :RN=VR : IFSC/£< J, U=4RNDI>2flNDI<=4THENRN==SV 
5630 PN=INT«:DX< J^#RN*RND':i :IFRND< 1 5THENRN=-RN - 

5640 d;: * J > =dj: < j j +rn : j , =□;: j;j -dj: <. j > *lr;-: <: sck • j . i > . ln;; k j . i > > . 1 1 00 

5650 IFJ=NN-1THENGOSUB6200 - \ * , 

5660 SU=3U+Dtt< J!> : NEXTJ ? RETURN 
. 5S00 WT=0:FOPJ=0TONU:IFLNJi<J, I;=-lTHENG0TG531fl 

0 tl;-; < j r ij =fnr < fnm < Rflf: < j > / 1 00 > > 1 1 FTLrx j , 1 5 <0Thentl# < j , i v ; =0 

5820 WT=kT+PRtt < J > ; NEXT : RETURN 

6000 FORJ-0TONU :RVX< J>=RVKi. J^+Pflf^ J> :HEXT : RETURN 

6209 FORK-OTONN : IFSC7XNN . I :>=SC^'!K, I >THENOJ«NN>=15k<NN:>*. 75 

6210 NEXT: RETURN ' 

TOO© NU=2:SS=15O0:GOSUB2:PRINTTflB^9> M . ETWORK -ATING _EPORT" :PRINT"o — - : 3" s 
s 7010 IFW^ = 1THENPRINT ,, 1-5 ,, .:GGTO7020 § 
>015 PRINT"6-10"' 
7020 X=6:V=3:G0SUBS:PRINT"* *j - 'l ""I # I Us I" , 
703© V-4:G0SUB8:PRINTVa-flTS a« 1I#-AT3I #i Sltf-AT" #S »!" • 
' 704d V=5 : GOSUBS : PR I NT " J3^3 . ■ jzTN ■ 1,3*0. ■ 5TN Blxl'-'O.S *TN SI" 

7050 PRINT" k 7:0O*' : PR I NT" 7 :30 M :PfclNT" S :00" : PR I NT" S :3@" :PRINT" 9 sOG" : PR I NT" £ : 
s 30 M :£RIHT"10s00"<:PRINT"10*30" - 
. 7060 FQPV=€TOl3 :X=13 : GOSUBS : PR INT" I I ' |" :NEXTV 

707d V=18*:G0SUB3iUP=l :S*3=1500 sNU=2:QOSUB5000 , . 

7830 S0=0:S1=&:S2=0 :FORI=0TO7 :V=I+6 :X=6 :GOSUB3 

7035 JFLNS<0, I >>=0THENPRINTSC;J<L0,I>+1; :K=S : GOSUBS :PRINTFNR'.'TL;:^0^ I >/SS*100.> 
70S6 IFLHK<0.I»=0THENS0=S0+TL^<8>I>/SS#100#<LNX<0,I> + 1> 4 ♦ 

7090 X- 14 : GOSUBS : IFLNKC 1 , I >>=0THENPRIHTSC«^ 1 , I > + 1 ; :X=17 : GOSUBS :PRINTFNR<TL,"^s 1 I 
>/SS*100> - 
7095 IFLNX<1 . 1 >>=0THENS1=S1+TL^< 1 , I VSS#11E(0#<LN?i< i .I> + 1 > 

7100 X=22 : GOSUBS : IFLN?ik2, I '.O =0THENPRINTSCK<2 r I > + l ; :X=25: GOSUBS :PRINTFNR«:TLK«.2 . 1 
V^SS*i00."> 

7105 I FLUX < 2 , I ) >=0THENS2=S2+TLX < 2 , I ) /SS* 1 00* CLNX < 2 , I ) + 1 > 

7119 NEXT I : PR I NT : PR I NT " tVERRGE ". : TRB < 9 > FNR ^ S0/S > f RB.< 1 7 > FNR S 1 /S > TRB < 25 .'3 FNR S2/S ^ . 



7120 X=2 : V= 1 S : GOSUBS : I FWKO 1 THEN71 90 



713© PR INT" -0 VOU WRNT TO CHRNGE R PROGRAM? II" ; : IL=I ;B*=? n " : GOSUBS 
, 7140 flN*=P*:IFB*O n |"RNDB^O".>THEN7120 
' 7196 RETURN 

7209 FORI=0TO7:LN>i<2,I>=-l sNEXTI * , 

1 7205 XX=0 : CX=0 : FOR I =0TO6 : 1 FPT* < 2 I > =PT$ C2 , I + 1 > THENCX=CX+ 1 
7219 IFPT*«:2,I>OPT*<2,I + l. , >THENLN?i:<2^XX>=CX!X>*=I+i :CX=0 
722© 'NEXTI :LNX<2,XX>'=CX:RETJUIRN 

7400. DRTR "WIN SOME^OSE SOME", "GO FOR IT","RORD TO RICHES" 
7412 DRTR "WIN THE WORLD" ' • 

7421 DRTR "LUV IT UP" ^"DRISIES TELL"., "FRANTIC FREDDV" 

7422 DRTR "IT'S RLL RELRTIVES" 

7431 DRTR "STRMI^EDE " , " SERTTLE BERT" , "HIGH SERS'\ 

7432 DRTR "MARTIAN PROBE ,\ , . - 



9 



78 



! 



ERJC 



DATA "REBEC CR BURK , ODS" , "HOMEWARD BOUND". "547 HILL RGAD" ' 
DATA " JUSTICE FOR RLL" ^- . 

DATA "MOVIE OF THE WEEK ". "TUE&DRV *SMOV IE" , "MOVIE ' SPECIAL" 
DflTfi "FABULOUS FILMS" 

DATA " N I OHTLV NEWS " / '•' NEWSWATCH " , " NEWS ROUNDUP " 

DATA "UP TO THEMINUTE" 

DATA "TH IS WEEK IN TINE" . "THE WORLDAROUHD US" , "ANIMAL TALES" 
DATA "UNIVERSE" 

.DATA "SPORT'S ALL STARS" , "GAME OF THE WEEK" , "BATTER UP" 
DATA "SPORTS HIGHLIGHT-" , 

DATA 15. 20, 12, 7, 4, 2 ,3, 2, 26,28,33,30 ,21 ,17,2©, 9, 7, 12, 35 .,31 ,27,22,26,10 
DATA2, 4, 15. 22, 23. 25, 28 .23, 4, 10, 20, 23, 27, 7, 3, 1,25,1 1,5,2, 1 ,1 .1,15 
DATA3 .15. 15, 9, 12, 4, 7, 4 .45,25,2©, 10,8,5,3,2,0,51 ,S1 ,30,9© ,90,0,20,60,85,9© 
DATA90, 10, 0,65,70,80,90, 30 ',0,40, 60,90, 90, 90, 80, 60, ©,4G .40,0,25,60,70,90,9© 

DRTR25. 5© ,,96, 90 ,.70, 30. 28,0,45.45 ..16, 25, 35, 38, 29 ,25, IS. .45 

IFPEE^59463.> = 12THENPRINT''T0 " GQ ON PRESS RETURNS " s : GOT 07320 ' - > 

PRINT" I 0 . GO ON PRESS " ? 

GGSUB4 : IFPE^=ES*THENR&TURN 

IFR*OCHR*' 13>RNDRE*OfiC*THEN7820 ' ^ 

RETURN - • ' 

T=TI :RES*=sRT$ * § 

lJ=:TI<T+38THENPRINT l, Sgir ' :G0T08858 ' - 

IFLEN' B$.):.9THENPRINT n a n t . J 

IFTKT+68THENPRINT" H" ? O :GOTGS050 " — r _ 

T=TI _ ' * ^ - ^ 

GET R$ : I FR$= " " THEN 3828 
IFfl*=flC&$THENRES$=HCC$ 

IFR$=ESC$THENRES$=ESC$ ,*« 
PRINT" || H % : RETURN * ' 

G0SUB4 :H=R3C < R $ ^ > 

IFB$=""RNDR=20THEN8280 . . r ^* 
IFB$=""RNDR=?13THENRETURN • ' 

I FR= 1 3Th(ENPR I NT : RETURN 
I FRES$=ESC£THENPR I NT : RETURN 
I FRES$=RC£$THENPR I NT : RETURN 

I FR=28RNDLEN » B$><2THENPRINT")i III" :B$="" :GOTO3280 

I FR=28RNDTF= 1 RNDLEN <<. B$.> =2THENPR I NT M Hi III ; :B$=LEFT$<B*,LEN':B$.'-1 :G0T032S 

3285 IFR=28THENPRINT"S III"; :£$=LEFT$<B*..LEhKB$>-l > :G0T0328Q 

3298 IFR<320R<R>127RNDR<161 >THEN8288 * 

3318 IFUP=1RND<R>G4RNDR<98>THENR^=C.HR$<R+12^> 

3312 IFTF=1RND<R<430RR>57>THENS286 a 

3313 IFTF=1RV^DR>49RNDB^= ,, "THENB^"8 ,, :PRINTB$? 

£3 15 IFLEH<B^^>=ILTHENS208 , C 

3316 IFLEN<B*:>>9THENPRINT ,, a n ; 

3328 PRINTRS? :B$=B$+R$ : IFTF= 1HMDLEN<B*>*2THEMPRINT" 
* §325 I Ffl$=CHR$ < 34 ) THENRR I NTCHR$ < 34 > " H" ; 
3348 G0T0328© 

3888 PRINT"3" 5PRlNT"g"; :IFX=8RNDV=8THEN RETURN 

3838 I FX=8THENPR I NTLEFT$ < D$ , Y > .* : RETURN % < 

3848 IFY=8THENPRINTTRB<X> ; : RETURN k . '. 

3858 PRINTLEFT$<D$,Y>TRB<X> t : RETURN 

9280 G0SUB1 :G0SUB6:X=9:Y=7:G0SUB3:PRINT"MflTH NETWORK 

9228 X=6 :V=10 :G0SUB3 :PR I NT "CURRICULUM PROJECT" :REMFORI=1T02888 : NEXT I 
9246 X=12c:V=14:G0SUB8:PRINT"PRESENTS H :REMFGRI=lTO2608:rtEXTI 

9260 X=4:V=f2^:GOSUB8:GOSUB7:IFRE^=ES$THEN9260 ^ 
9280 G0SUB6:X=8: , T , =6.:G0SUB8:PRINT"ja«A J3 mA *3JS A 1 J 13 wmS* 3" » m 
330© X=8:V=7: G0SLIB3: PR I NT " I II I I 1 1 1 " ; 

9318 X=8:V=8:G0SUB8:PRINT'"ia»S 3- dS, ' I I II 



7441 
*7442 
7451 
7452 
7461 
7462 
7471 
7472 
7481 
7432 
7630 
7660 
7696 
7750 
.8.8 
7793 
7368 
7310 
7820 
7330 
7848 

3000 

8820 
3825 
8830 
3040 
8850 
8655 
3057 
8660 
' 3286 
8246 
8250 
8268 
3262 
8264 
3270 
3230 



7<i 



y320 
•333Q 
9340 
9350 
9360 
9370 
9330 
9400 
9410 
94£0 
9430 

II 

94*30 
9500 
9529 
9540 
• 9560 
9530 
9591 
9594 
. 9593 
READY. 



X=S :.V=9 : GOSUBS : PR I NT" I I 
X=l 0 : V= 1 2 :G0SUB8 :PP I NT " 
X=10 :V=13 :G0SUB8 :PRINT" I 
X=10:Y=14 :G0SUB8:PRINT" I 



I I II "; 



X=lCi:V=15:G0SgB3:PRINT" I ^ m | | 53 " ; iREMFORI-1 TOIQQO :NEXTI 

X=4 :V=20 : GOSUBS : GO SUB? : IFRE*=ES$THEN9370 

RETURN 

' T *~" :PRINT"a,"LI* 



PRINT"ai"SPC'#29>"| 
L$=" 



F0RI = 1TG4:PRINT"51« l"SP*" | 



": PRINT" 51! ,'"L*"-, |:„w fil 

■" :.WEXTI : PR I NT" & ■ I " SP* " 



aim 



PRINT"ja! |"SP*" 

print" at b r'sp*'/ 

ppiNT"jas rsp*'? 

PR I NT" a ■ l"SP*" 

PPlNT"ja« ,|"SP*" 

ppint" a 1 rsp*" 

ppiNT"a» i"sp*"- 



1 

1 1 
1 1 
1 

1 , 
a 1 
1 1 



PRINT" a ■ i , *L$"*> 8 
PRINT" •ja"LI*"S=3" • ti-*> 



ja'- 1 " ai" sprint "a i psp*" 1 1 .'- 

laB" :PRINT"aS l"SP$" I II v* 
131 ■" : PR I NT" a ! 
aH" :PRINT"ai 

-.ja«" :PRINT"ai 

II ia»" :PRINT"a 9 

- —'ag" :PRINT"ai 

r, a»" : PR I NT " a ■" SPG < 29 > 
=L*+kEFT$ k L* - 1 2 \> : RETURN 



1"SP$" I I ••• /fl! 

|"SP* ,B 1 I 5J59S. a ! 

i"sp*" iii 1 1 - 1a ■ 
I";sr*?" 111 u iai 
i H sp*" 11 a« 

■-> K -' '-' Si i 



ERIC 




1 . 
r 



.71 



NETPR I ME S 



RERDV. 

10 SVS 1039: RUN 
RERDV. 



RERDV* 



9 

ERLC 



5 REM CORrVRIGHT 1981, MATH NETWORK CURRICULUM PROJECT 

6 REM S?SU, ALL RIGHTS RESERVED 

7 GOTO 1000 

208 REM-NETIN— " 

*210 I$= D1*="P" / 

220 G0S<J8400:IF<PEEK'.S0>RNDRF>OlTHEN22e 

230 SVSRK : R$=CHR$ *> PEEK. RB j • : IFRS=RT$THENPRINT"» H" ; :SV3SD : RETURN 
240 I$=I$+R$ :G0TG220 

400 REM-BLINh — ' ^ — N 
410 I FDTHENPR I NT 11 3" Dl $ *' ||" ; : D— FR : RETURN 
420 PRINT ,, i M Dl* ,, ir ? :D=TR : RETURN 
5O0 REM-NET OUT— 

5 1 0 SVSBS : D i *= " Sg : FOR I = 1 TGLEf KOI): GOSUB400 : POKE KB r RSC < M I D$ < 0$ , I J j : SVSTX iHEHJ 
52© P0KE^:B,13:SVSTXrPRINT , :» ||".; :GOTd200 w r . 

600 P0KE5346S;ifL':PRINT ,, 3 M ; ' 

610 PRINTTRB'.. 10^ "PROGRAM SCHEDULE" : PR I NT TRB < 7 > " 3" NN$ < Utp 
620 CX=0 : GOSUB2£80 :PRINTTRB< 1 2> "CRTEGORV 
623 PR IifT " aiBjflME 32^ IT COM .33BRCTI0N fl4S3RRMfl" 
' 625 PRINT" 35SMOVIE SSWEWS J3THD0CUM .SSIISPORTS 

626 PRI'NT" jSTTIHEi: ^LENGTHS: " :PRINT" jaCRTEGORYSs jWfitlEBa" 

675 G0SUB900 , ' 

6S0 tf=S : V=24 : GOSUBS80G : PR I NT " TO GO' ON PRESS <J3SHIFT! ja&g>" ? :UPfO 
700 ;:=7:V=22:GOSUBS800;PRINT M m IIIIH" ; :B*=" " : IL=4 :TF=1 :GOSUBS2G0 
702 IFPE*=ES*THENNU=NU-i : RETURN - - " • 

705 IFPE$=RC$THEN8S0 — - o 

" 710. T1=VRL<B*^/100:IFINT':T1^<7ORINT<T1»10THEN700 *. 
720 T2=INT<<Tl-INT<Tl.r^.l0/.6*lO0>^100:IFT2O5RNDT2O0THEN7G0 ' * — ■ 
730 T1 = INT< <T1 + <T2"4. l-7>>*2> :TF=0 - 
740 X=22:GOSUBSS08 SPRINT" llll" ; : IL=3 :B$=" " 
745 GOSUB82O0 :L=VRL<B$>*2-1 : IFRE*=ES$THEN700 
750 IFL<0ORL^5pRTl+L>7ORLOIHT'CL>THEN748 ■ 
?t£0 X=ll :V=23:GGSUB3S0O:PRINT" il" ; : IL=ljE^^liL:BOSyB820GT : IFRE$=ES^THENV=22 :GGT07 

40" - 

770 CR=VRl^_B^J^4^^CR<0i5^R>7THEN760 
-—780-X=18;GOSUB8300 5PRINT" IIIIIIIIIIIIIII1IIIRI" ? : IL=20 :B$= M " 

732 GDSUBS20Q . * • 

735 IFRE$=RC*THEN86.0 

790 N*=LEFT$<B$+SP$,IL> : IFRE*=ES*THEN7S@ * A ' ; 

795 IFRE*=RC*THEN860 . - . ' * ' 

300 SC*i<UNrTl. , >=CR:PTKUN,Tl>=N$ - ; 

320 IFL=0THENS5O i% / 

330 FORI-lTOL:SC^aiN,Tl + I>=CR:PTiaiN,Tl + I>^-NEXT ^ 

850 GOSUB9O0 :GOtO700 . / " 

860" FORIs=0TG7:IFSC;-:<UN,I»=OTHENNEXT:RETURN 

870 GOTO7O0 „ > t ' . r , 

900*LT$="" :FORI=0TONT :V=I*2+2 :C2=SCX<UN, I ) + l 4 

910' IFC2<1THEN980 ' ' 

920 IFLEFT$^PT$<UN,i:i,1^0 H "flNDLT*OPT*<UN,I >THENX=7 :G0SUBS3Q0 :PRINT"*J"C2 ; * . . 
930 X=9sGOSUB3S0O :lFLTI=PTKUN,I>THENPRINT"|«| "LEFT$<FL$,9.y :G0TG958 



940 PRINTLEFT*<FT*»'UH, i:« . 10> ? 

350 Y=Y+1 z',:-9 *GOSUB8808 : IFLT$=PT$-' UN , I >THEHPPINTFIGHT*<F I* .9 > ? :G0T0988 
368 PR I HTR 1 GHT* * PT$ « UN , I *' , 1 8 > ? 

980 LT*"PT*<UN.I>*NEWT:RETURN ) 
1600 REM-MfilN — 

1810 G0SUB1 280 /• . ^ 

1020 PR INT" J" ;0OSUB94Q0 
1025 G0SUB1480 

103© G0SUB9680 ' t * 

1058 GQS.UB 4400 ' 1 

1060 OH Chh GOSUB 12600, 12068, 3880,6000 r 4600 r 12200^4000 r 13008 
1878 GOTO 1058 > j$ . 

1190 END ' 

1200 D$= rgIgMqaM^^ :RC<="»" :ES$="-" :FI$=" | V 

1216 RT*=MZHR*U3> :FR=8:TR=-1 ' 
1220 SP$=" ^ 
i 2 30 P0KE59468 r 1 2 

1240 BS=1848 5SQ=BS+15 :RB=BS+17 :XB=BS+18sTK=BS+9 :R!*!=BS+jS :RF- 
1330 RETURN ' " 

I486 REM-READ DTR- 
1401 NU=0:UN=-1 

1 482 SS= 1 500 : NC=7 : MD= 1 5 : MN=7\jL =5 : NT=7 : PB= 1 500 : D I MPT$ 01 N , NT 
1403 -DlM DP«<HC *MT > rLfl?XNC,NL+J. > „AVZ:CMN> 
1405 D I MSCK < MN , NT , PHX MN > , TLX < MM „ NT > XA$ NC ; 
4 4 1 0 FOR I =0T0MN : FOP J=@TONT : SCJi < I , J > =- 1 : NEXT J , I 
1420 FOR I =0TONC : READ CAS ■* I :» : NEXT I 

14 30 F0RI=8TONC sFOP J=OTONT :RERDDP?:^I , J> : NEXT J, I* 

1 440 FOR I =0TONC : FOP J= 1 TONL+ 1 : READLA?*J < I , J "> : NEXT J , I : VA= - 2 : SV= . 5 

1450 FGRI=0TG7:RERDB;XI> :NEXTI :DEFFNR<:0 = INT<H+.5> 

1460 GEFFNNOO=3QR',-2+L0&< RNDu 1 > >;>*CQS<2*ir#RNDC 1 > 

1470 DEFFNMOft ">= f , FHN » 0 j*SQ P 1 -X> :»*SS 

1530 RETURN- 

2280 REM— PP I NT TIMES- ; 

2^10 PRINT" 7:8S" : PRINT" 7 :30" :PR INT'*a 3 :0Q" rPRINTJ'g] 8 :30" : t PF'INT"a 3:80 
2220, PRINT" S 3:30" ^'INT'^IO :08" :PRINT"aiO:30 , 
2230 PP I NT " a" L$ s RETURN 

2480 RET1-GET CHOICES- H 

2401 PRINT'-'D — — ^ 

£402 IFNL<=0TfiEM2Alr©-— — ^ '- 
^2405^PRTNT 7r SCHEDULES LOADED ARE: 
,2487 FOR I=OT0NU-f :PRltiT " a h TflB<5>NN*< I > :NEXT 
2410 PRINT"5Jt'0UR CHOICES ARE : " - 



= 1 :S0=BS+3 



2420 PR I NT" S 
24 SO PR I NT "a 
_ 2435 PR I NT" a 
' Mi7 PR I NT "a 
^448" PR I NT" a 
2^50' PR I NT "3 

*6tf print.' 1 a 

?465 PRINT n a 



aRi. SEE NRMES OF SCHEDULES ON NET' 

LORD R *IEW SCHEDULE FROM rtET 
aCii LORD R NEW SCHEDULE FROM KEYBOARD 

STORE aWDUR* SCHEDULE ON NET 
SEE. DELETE A SCHEDULE FROM WGRKSPRCE , 

DELETE R SCHEDULE FROM NET, 
33*. FIND RATINGS 
jSHi. QUlf - - 
2470 PRINT n aYQUR CHOICE: " ; : IL= 1 :TF=8 :UP=8 :B$=" " :(30SUB8288 
24S0 it r B$<: ,, R ,, ORB$>"H ,, THEN2470 

2490 CH=RSC<B$>-64 , ' . v. 

* , 2590 RETURN' % - *' " 9 

30O0 REM-LD FRM K*BD- . , 
3010 G0SU63480 : f FRE$=ES$THENRET URN 
- 302O GOSUB600 . 
'3198 RETURN^ % 0 
3488 REM-GET NET TTLE- ^ ' 

3481 IFUN>=8THEHRETURhU 

,erJc r " 



J ( 



3482 
3404 
3486 
3410 
3420 
34 3© 
3435 
3437 
3440 
.3450 
3460 
3470 
3490 
3300 
3310 
3320 
4000 
4010 
4020 

> 4022 
4030 
404O 
4O50 
4055 
406O 
407O 
403O 
4-200 
4205 
4210 
4220 
4230 
4232 
4240 

""4250 
4260, 
4265 
4270 
4230 
4290 

*. 4295 
4 300 
4310 
4320 
4330 
4340- 
4345 
4390 
44O0 
4410 
4420 
4430 
u 4435 
4440 
4450 
4508 
4510 
4520 
4590 
4600 



9 

ERLC 



IFNU'>MNTHEN3410 

PRINT" VOO MUST DELETE fi SCHEDULE FIRST 1 
GOSUB4800 : RE$=ES$ : RETURN ^ , 

PRINT^sMt'OUR T.V. NETWORK WILL" NEED fi NfiME' 
PRINT" fiWHfiT NAME DO VOU WfiNT TO USE? 
B$= " " : TF=0 : I L= 1 6 r UP=0 : GOSUB 3200 
IFRE£=ES$THEHRETURN 
UN=NU:NU=NU+1 

NN* UN > =LEFT$ >s B* , 1 6 ' : B*= " " 

PRINT rPRINr'SVOUR CROUP NEEDS' fi NAME, TOO. 
PPINT n aQROUP NAME: " GOSUB S200 
GM*=B*:B*«."" 
RETURN * 
REM-RNIHG AVRGS- 

forj=ptonu-i :flv«»;j>=flv;^ j')+pr;;<j> *next 

RETURN 

PEN-FIND RSLTS- 

T FNLC 0THEN4O 30 ' 
PRINT" jSBORRV VOU HAVE NO SCHEDULES LOfiDED , 
PPINT"PRE3S RETURN TO GO ON 11 ? :GOSUB3O00 : RETURN 
PR I NT " 3F I ND I NG RATINGS FOR 
FORI=0TO NU-i :PRINTTfiB»;5.) "J3"NN$< I : NEXT I 
PRINT"HPLEASE WRIT fi MOMENT... 
G03UB4400 
GOSUB50OO 
GOSUB 420© 
RETURN <* ' 

REM— PRINT PSLTS- ~ • 

REM 0PENiaS,4:GMD12S 
PR I NT" □ ^NETWORK RATINGS?' 

F0RTWK=0TONU- i 
: PPINT ,, iS ,, MN*':TWH 

: s;:- tw^=0 ^ — — 

^FCiJF'XS=0TQNT-— - ~~~~ 

PRINT3TRiKINT».7+TS/2>,J" ; 

IF INT»'TS/2>=TS/2THENPRINT 1, 00" : :Q0T04270 ' 
PR I NT " 30" .? 

• X=FNR < TL/i < TWK , TS > /SS* 1 OO > 

IFLN^TW^TS^-ITHENPRINTTABOSVV 1 ' :GOTO43O0 
PRINTTfiB<7>;CR*<SC?i<TWrTS>>;TflB<l:5>PT$<TWrTS0;TfiB<31>>< 
SK < TW j =S;i < TW > +LN?i < TW , TS > *X 
NEXT TS 

PRINT" 

P R I NT " fiVERRGE - . M J NT < S',1 < T W > / < HT+ i > * 1 00 > / 1 00 
PRINT" 3PRESS RETURN TO GO ON: " :GOSUB3Q0O 
- NEXT TW 
REM GETRS; CLOSE las 
RETURN 

REM-SETUP LNX- 
FORTWK=0TONU-1 
P=0 : C= 1 : LNX C T U , @ > =- 1 
FOR TS=1T0 NT 
LN?iCTW,TS>=-l 

ifpt$»c tw , ts ) =pt$ < tw ; ts- 1 > thenc=c+ 1 : goto4500 
ln;-xtw*;p>=c:p=ts^c=i - 

NEXT TS \ • 

LNX<TWrP>=C 
NEXT TW • 
RETURN 

REM-DLTE FRM WRKSPCE- 



4*05 
4610 
4620 
4630 
46,40 
4650 
4660 
4665 
4670 
4672 
4675 
'46S0 
4690 
4700 
4710 
4720 
47Xi 
4740 
4750 
4760 
4730' 
4800 
4810 
4S20 

5600 
,5610 

5620 
50 30 
5040 
5050 
"5060 
5870 
5200 
5210 
5220 
5230 
5240 
5250 
5400 
5410 
5420 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
'5590 
5600 
5610 
5620 
5625 
5630 
5640 
5645 
5647 
5650 
5660 
5670 



J 



IFNU=0THENPRINT " SfJQNE TO DELETE! " : GOSUB4800 : RETURN 
PR I NT " 38JCH0OSE ONE TO DELETE :H I \ 

FORTW=0TONU-1 . 

PRI NTTRB < 5 s > " S" C HR*C 65+T W> " ». ." NN£ <. TW > 
NEXTTW % 

PR I NT "CHOICE : " ? :B*« ,|H :IL-1 :UP=0 :TF=0 :GO9UB£20O 
IFRE$-ES$THENRETURN . 
CH=RSG<B^.^65 
IFCH<0ORCH>NU- 1 THEN4650 
IFCH=UNTHEN UN— 1 f - 
N*=NN$<CH> 

NU=NU-1 : IFCH>NU-1THEN47S0 
PR I NT "JUST A MOMENT. . . 
F0RTW=CHTQNU-1 ' , \ * 
NN*tTW>*NM*<Tfel+^> " ' 
FORTS=0TONT 

PT$ ' TW r TS ) =FT|: k TW+ 1 TS } 9 

sc • tw , ts > =sc;: < i w+ 1 , ts i> 

NEXTTS.TW 

FORTS-BTOMT zPT*k NU , TS :> = " " : SC:: < HU , TS 5 =- 1«: liJX < NU , TS -'=-1 :<NEttTTS 
PR I NT : PR I NT" S"N* " i IS . DELETED FROM WORKSPACE. • ^ . >' 

REM-RETURN TO ' GO O^ ( J 

B$-="" :IL=1 :TF«0sUP»O:RRINT , 'SPRESS F;ETURN | TO GO ON*: " % :GOSUB88G0 sPgl.Hf 
•RETURN* > ' I 

PEM-AUDIENCES FOR NUMNTMKS— 
FORI=0TONU-1 tf\V m f t\ I >=0 :HEXT 
FORTS=0TONT 
GOSUB 5200 F-IND RR 
GOSUB 5400 FIND RUDIENC& 
J3DSUB- 5S00^OMPUTE^ 
: GOSUB 380p COMPUTE RUNNING TOT 
NEXTTS 

REf'T-FIND HVLBL AUDIENCE — 

fj(A=100 

FORTW=0TONU-1 

IFLN/i»; TW . TS j — 1 THEN AH=R A-PAE < J * 
NEXTTW j ' 

^RETURN v - 

REM — FIND AUDIENCES AND STORE IN ARRAV PA~ 
GOSUB5600 ' ; 

NW=Afi , f 

FORTW=0TONU-1 / 
I FLNX < TW , TS J O- 1 THENHWaNW* < 1 -D^ < T W > / 1 QQ ; 
NEXTTW 

WT=AA-NW " , ' ° 

FORTW=0TONU-1 ' • / 

1 FLNK< TW , TS > <>- 1 THENPAtf < TW > =Q m /. < TW > /SUM*WT 
NEXTTW 
RETURN ^ 

REM CMPtE ACTL DRWNG PWR . 
8U=0 4 
FORTW=0TONU-1 
I FLNX < TU r TS > — 1 THEN567© 

*DX<TW^DPXCSC?i<TW,TS>,TS> * 
RN=VAR2;IF<SC/i<TW,TC^ 

RN= I NT < D7i < TW > *RN*RND < 1 > i ' * 
I FRND < 10 < . 5THENRN=-RN 
DK <TW> =D?: t TW >+RN 

02 <T W > =Dtf < TW > * C.*-LRK < SCX < TW , TS > , LNX <TW,TS > > / 1 00 ) 
3UMaSUM+DXCTW> 



ERiC 



79^ 



5680 NEXTTW ' 
5888 PEM-COMPUTE'tlTCHNG- ' * 
5810 WT=8:FORJ=0TONU-1 ' 

5820 IFLNKkJ»TS/»-lTHEtyS84Q . * 

5830 TL?i »: J r TS ) =FNR ' FHM £ PA:; • J V / 1 00> > . 

58 35 I FTL* ». J . TS ) -:0T HENTLE J : TS "> =0 > 

5840 WT=WT+PA^ J> 

5850 'NEXT J • 

5860 RETURN 

6000 RE^-ACTLLV STRE 9CHDLE 

6005 IFUN=rlTHENPRINT"V0U HAVEN'T VET CREATED A SCHEDULE ! M 5 00SUB4880 BjRETURN 
6007 GOSUB 12808 

6010 PR I NT "SDK, I'M TRVING TO STORE 

6020 PRINT" VOUR SCHEDULE NOW: ^ 
6830 GOSUB 12400 

6040 .IFNOTRETHENGOSUB6£O8:GOTO6O10 " P 
6050 PPlHTxPPINT^SflasJcCESSI, ' * , </_ 

6O90* RETURN - 
6200 REM-NME IN USE- 

6210 PR 1 NT sPR I NT 11 SlfiT TTL$ " IS ALREADV BEING USED. 
6220* PR I NT "330 VOU WISH TRV TO DELETE IT"' 
6225 PRINT" < S 9 OR S/B} : " ; 

6^30 B$= M " : IL=1 :TF=0 :GGSUB82O0 < 
6248 IF .B$= M V n OR B$=' 1 I" THEN 4 B$=" " : GOSUB 6608: IF RE THEN RETURN 
6245 1 IF B*:- ,, .N ,, ^flNDLB*> ,, ^ H THEN 6225 , p 

6250 G0SUB3400 
; -6998^*ETdRN'~ 
6600 .PEN DLTE OLD SCHDLE 
6605 RE=8 . ' 

6618' Q*=MID*' STpi<LEH<NM*>> .2.' : IFLENCQ*; C2THEN0*= ,, 8' , +Q* 
6628 0*= M DPD H +0*+NM*+TTL* :GOSUB5O0 

\y J$=^DPDT*' THEN RE=-1 : PR I NT " £}" TTL£ " . DELETED! " : RETURN 
^R I NT "VOU MUST NOT BE THE GROUP THAT c ' , „ 

6&50 PRINT"ORIGINALLV, SET tfP SCHEDULE FOR q * 
6660 PR I NT " 51" TTL$ 11 . - 

6670 PR I NT M 5FLE ASE CHOOSE A NEW NAME. . * 
6650 RETURN 

7400 'DATA GAME, SIT COM, ACT I ON, DRAMA, MOV IE, NEWS , DOC, SPORTS 

7630 DATA 15, 28, 12,7 -4,2,3,2,26 ,28,33,30,21 ,1*7,28,3,7, 12,35,31 ,27,22 .26, 18 
7668 DATA2. 4,1 5, 22, 28, 25, 28, 23, 4, 1 0,28 ,23,27, 7/3, 1 ,25, 1 1 ,5,2, 1 , 1 , 1 .15- 
?698 DATA3, 15, 15,9,12,4,7,4,45,25,28 ,10,8. 5, 3, 2,0, pi ,81 ,98,98,98.8,28,30,85. 
7758 DATA98, 10, 0,65. 78, 88, 98, 38, 8, 48, 60, 98, 98, 98, 88, 68. 8, 48, 48. 8,25 ,68; 78, 90 

7752 DATA90:0,8 \ ' 

7793 DATA25,50,90,90.70,30,£8;8,45,45, 16,25,35,38,29,25, 18,45 

8088 T=TI :RES$=RT* • , " 

8028 IFTKT+30THENPRINT"B^|"; :GOTO3058 
8038 I FT I £T+60THENPR I NT " H" ; :GGTD8058 - 

8848 t=TI * ' ' 
8858. GET A$ :: I F A$= " " THEN 3828 . t 

3655 IFQ$=ACC$THENRES^=ACC$ . N 
8857 IFAS=ESC*THENRES:*=ESC* c * - ' % § 

8068 PRINT" I!";: RETURN ' * 
828© G0SUB88ee:A=ASC<:A$> 9 

3240-Ii :r B$= ,,M riND^=20 l THEN828e . ' 1 . 1 V * ' 

8258 I FB$*= " " AND A= 1 3THENRETURN * 
8260 IFA=13THENPRINT : RETURN * 
8262 I FRES$=ESC$,THENPR I NT : RETURN 
8264 I FRES$=ACC$THENPR I NT : RETURN 
8278 IFA=20ANDLEN',B*:K2THENPRINT''S 111" ; *B*=" " :GOTO8208 ' * / 

828© IFA+TF=21ANDLEN<BS>=*£THENPRlNT'«MI WI ,, ;sB*=LEFr^<B$.LEN<B^>-l>:G'GYQ8288 



■so 



8289 I FR=20THENPR I NT " ■ III" ; :B$=LEFT$kB$ ,LEN<B*W > :GOTG3280 

82-90 IFRC32nP':fi>127RNDfi<16nTHEN8200 t 

-83 10 .1 FUP* 1 AND '< fl>64flHDFI<90 > THEHfl*=C"HR* < f\+ 1 28 > 

8312 IFTF=lflND<FK:48ORFI>57>THEN8200 J 

8313* IFTF= 1 flNDR1.49RNQ»B$= " "THENB*= ,/ 0" :PRINTB$ ; 

8315 IFLEN«.B*>>=ILTHEH8200 , 't n , 

8320 PPIHTR$.; :B^=B$+fl$:*FTF|=l.FINDLEH<B^:)=2THENPRINT" :" s 1 ' 

8325 IFfi$=CHP$':34 >THENP^INTPHP$<34> "II" ; 

.8340 GOTO8200 - ^ . ; * v . » 

8800 PRINT":*" sPRIHT"^; : IFX=0flNDV='0THEN RETURN . * • 

8338 .IFX=0THENPRINTLEFT$<O$^V?; :RETURN , / 

8840 'lFV»0THEHPRIHTJflB<X> s -RETURN '<■''• ' 
8850 PR I HTLEFT.* < D$ , V > TAB <-X > s : RETURN ■ . ' 

'3400 L'I$=" - - 



94 J 0 PRlMT"ja""SPC'i29.)" 

9420 s L'i=" ■ 

?4 30 FOP I = 1 T04 : PR I NT " a 



jai" 



:PRINT"jaB 



m " :PRINT"g,"LI$ 



9440 PPlNT"jS|S 
9460 PRINT" a 1 
950O PRWT"di" 

9520 print "jaa 

9540 PR I NT "a 
9560 PR I NT "ja ■ 

95S0 pr i n t 1 ' a a 
-95?r~PRXNT"aa 

9594 PR I NT "ja a 



r.SP*" I. l^jMI! 11 : NEXT I 

"sp*" ii jaa / 
"sp*" 1. 1 a'-'s jaa" :PRiNT n jaa 
"sp$" i 1 1\\ mi" : pr i nt H aa i 
"sp$"-i ii A- uaa" :PRiNT"jaa 
"sp*" I i jaa" :pRiNT"jaa 
"sp*" i i 4 jaa"sPRiNT"jaa 

p^LLxi u—iaia'i: print " ja a 

"sp*" i i v- 'ja " :PRiN*r"aa 



|"SP*" I 

r'sp* 1 ' i i 
rsp$" i i 

|"SP$" | | 
|"SP*" i i 
I" JSP*;" I 
"SP$" I |- 




/ 



'•"L* | ^ >.jaa" :PRINT ,, jaa , "SPC<29V"| 
1/9598 PRINT" «a"LI£ ""3" ; :L$=L$+LEFTS':LS , 12> ' 1 

;9599 RETURN 
9600 PEM TITLE 
9610 ;-:=4:V=5:GOSUBS880 

9620 PRlNT"jar-1flTH. NETWORK CURRICULUM . * 

9625 PRINT"H«ayiUttft»l*MliPROJECT 
9630 PR I NT " aiayUUUUUUtiJLPRESENTS 

9640 PR T NT " MttfcMl-MlstJFTtJORK PRIME TIME * .* 

9650 PRTNT" 8MB>liii»ia T0 GO ON PRESS RETURN "; ^ 
9660 GOSUBSO00 . v 

9790 RETURN 

12OO0 REM-NETLORD- • . 

120O2 IFNU<=MNTHEN12008 

12004 ' PRINT" VOU MUST DELETE R SCHEDULE FIRST! . - 

12006 GOSUB48O0:RE$=ES$ k : RETURN . ' — „ 

12808 GGSUB 12800 , . _ ' 

1201O PRINT:PRINT"£HRME OF SCHEDULE 
12020 PRINT"TO LORD: "s 

12030 B*="" :IL=16:UP=0:TF=0:GOSUB82O0:NN$<NU>=B* 
•12035 IFRE*=ES$THENRET,URN 
12O40 0$=?"DRR ,, +NN , *<NU> :G0SUB580 

1206O IF LEFT*<I*,4>O' , DPRT*'THENPRrNT:PRINT"N0T FOUND" : GOTO 12010 
• 12O70 FGRN=OTONT «> • 

12OS0 O*="dPS"+MID*<I*,5>4>SGOSUB500 , V 

1209O IFLEFT$< I $ , 4 > O " DPST " QRLEN < I $ >< 1.0THENPR IN T " j"f^ETERRGR " : RE TURN 
12100 SCJi<NU,N>=VRL<MID*<-If,9,2>> ' 
12110 PT$<NUvN>=MID*<I*,ll> 

12120 PRINT"CRT"SC?i<NU,N>PT*<NU,N> . • * 

12130 NEKTN* " ' .- .. ' 

'12140 PRINT"a ,, NN$<NU>" aiS LOBDEDI . " • 

12150 P,RI NT " PRE8S RETURN TO .GO ON " $ ' , 

12160 B$="[' :GOSUB8000 "* . „ 

12180 NU=NU+1 1 " - 

12190 RETURN . 
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ERIC 



•81 



2200 

2205 
221© 
2220 
223© 

2234 
2240 
2250 
2260 
2270 
'2280 
2290 
2390 
2400 
2410 
2450 

11470 
2475 
2480 
2490 
250© 
2530 
2540 
2550 
2600 
2602" 
2605 
2610 
2620 
'2630 
2640 
2650 
2660 
2790 
2800 
28 1 0 
2820 fe 
283© 
2840 
2845 
2850 
2860 
2870 
288© 
2890 

3000 

3010 
400© 
4010 
4015 
4020 
J4J322 
4024 
4026 
4028 
403© 
4032 
4034 



'Vf 



ERIC 



PEM-NET DLTE — . 

GOSUB I 2800" . 
PRINT : PR I NT "SHAME OF SCHEDULE 

PRINT" TO' DELETE: * * . 

fr$=" M 5 IL=16 :UP=0 :TF=O:GOSUB82O0 :HM$=Bf 
IFPE*=ES*THENRETURN 

PRINT :PPINT"GROUP tNfiME : " ? sB*=" " :GOSUB82O0 : IFRE*=ES*THENRETURH 
0$=N I D* '. STR* 'iLEH ■: B'$ yj,2 > : I FLEH 0$ > <2TriEN0$= " O " +0$ 

a'$=MI,D$'sI$,4,1> : I FA$= " C ,f »THENPR I NT " WRONG CREATOR NAME" 
IFfl$="F M THENPRINT M NO SCEHDULS BV THATNAME" r 
I FA$= " T " THENPFJ INT" SUCCESSFUL DELETE 

GQSUB48Q0 " * 1 

RETURN . 

REM-HETSAVE- * 
RE=0 :REM ASSUME* UNSUCCESSFUL ' 

0*=MlD*'STP*':LEH«'CiN*V > r 2> :IFLEHf 0* ■ <2THEHQ*= ,, 0 ,, tO* 
0*="DPfl 1, +0*+GH*+HN*' , UN > :G.0SUB506 

IF LEFTS I $.4>;>"DPfiT M THEN RETURN : REM NAME IH USE 
B$=MID$»- I £ r 5> \ . 
R0RN=0T0NT 

0$= " DPL ''+B*+STP* «s SC« NN , N '> ^ + PT* < NN , N > : GOSUPSOO 
IF \.EFT$«' 1$ r 4 "DRfcJ""THEH % RETURN / 
NEXTH ^ % 

RETURN 

REM-NETNAMES 

PRINT : PR I NT ".SLOCK AT* NET NAVIES 
GOSUB 12800 

PR I NT " SBEG I NN I H G WITH: " ? :B£= ,,M : IL= 16 :,UP=0 :TF=0 :GO'oOB- 
G$= ,, QRNO00 m +SK$ 

UOSUB500 : I FM TDTrrl^^rrt^ f O "T"TH EH4^S0L 
PR I NTM I D$ ». I $ r 8 '> : GET A$ : I FA$- " — " THENGOTO T2660 
0$= " DPN " +M I D$ < I $ , 5 , 3 > ; GOTO 1 2630 ' • >^ - 
PR I NT "PRESS RETURN TO GO,. ON " ; sGOSUBSOOO 
RETURN - ' . 
REM .-00 DIALING 

PRINT" ARE VOU CONNECTED TO THE NETWORK"? " j? 
IL=1 :B$="" :TF=0:PF=e:GOSLiB82©O " 

IFB$<:>"V M A^DB$<>"N M ANDB*0".< , ANDB*0" i"THEN123^0 
I FB*= " V " OfcpS^i' |" THENRETURN* 
PR I NT "PLEASE DIAL 
PR I NTT ABV 1 5 > " 3469-i2 1 25 
0$=" HELLO FROM NET PRIME" 

GOSUB '500 ^ .4. 1 # , • ' 

PRINT : PRINT I $ •' < . / 

RETURN ' ' / - 

REMQUIT , y, . / 

P0KE4O,l :P0KE41 ,4 :PRINT"Jlg}G00D BVE . THEN ! 'f'rfND 

REM~"TEST ' ; / . 

GOSUB 1200 : GOSUB 140O :NU=2 * .* . / . 

NN$<0>="TEST1" f \ ' / , 

SCE<0,0>=0:PT*<0,0>»' t GAM£ M /, 
SCK < 0 -1 > =6 : PT* < O yl > » ".GAME " 

scK<e;2>=*i :PT*fa;2>a"siT com" ' 

SC« < 0 r § > =2 : PT* < © , 3 > ==' M ACT I ON " 
SCX<0 *4>=2 :PT$<0^4>= II ACTION" ^ - : ; 

SQ;i<0 r 5>^:PT$«:0 r 5>-" ACTION" 
SC;ir:0;6>=S:BT$<e^6> = "DRflMA ,, 

SC«<0,7;^5:PT$<ei,7>t= ,, NEWS^ , ^ % 




0©sSK*=B* :PPINT 



/ 



82 



- 1 



140:36 
14640 

' 14642. 
14044 
J4046 
1 404S 
1 40,50- 

M4054-. 
14054 
14095 
1.4100 
14105 
14110 

RER0V • 



M$f,l >=r"TE 

sc;;a', i?>=? 

SC'/.< 1 ,2>=1 

*scx« i ,3>*fc 

SCN' 1\4V=2 
SC?^l>5.^ 

sc>:k i ;^»3 

jSCXU ,?">=5 
•OCfTOWSti'. 
GOSUB4400 
GOSUB5000 
GOSUB4200; 



ST2" 
:PT$> 1 
*PT*<1 
:PT$U 
:PT$«- 1 
:PT$<-. 1 
sPT*{- 1" 
sPT$< 1 
iP^TJU. 1 



,-4 >= 
,5>= 



."SPORTS" • 

SPORTS" 
'JSIT COM " 
"ACTION" ' 
"RCT^ON" 
"FICTION'! • 
liDRRMfi" 
"NEWS" ,' 



/ . 



• 1 



* « 



ERLC 



S3- ■; 



•WW 




